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USE THE BRAINS YOUR IBM 





Right at your fingertips 
in CompuServe’s IBM* 
Forums. 


In the IBM New Users Forum youll 
swap ideas with other new PC users, learn 
to use Forum features, and pose even 
basic questions to PC experts. 

Our IBM Junior Forum gives PCjr° 
users a reliable source for tips on software, 
hardware, telecommunications, games 
and other interests. 

In the IBM Software Forum you'll 
trade tips with other IBM PC and AT users 
on utility software, word processing, DOS 
and other operating systems. 

Visit the IBM Communications Forum 
for advice on the features and compatibil- 
ity of communications software and 
hardware, PC Bulletin Boards, micro- 
mainframe interfaces and more. 

The IBM Hardware Forum addresses 


hardware topics of all types, plus product 
updates and announcements. 


Circle no. 237 on reader service card. 





Easy access to free software. 


e Download first-rate, non-commercial, user- 


supported software and utility programs. 


e Take advantage of CompuServe's 
inexpensive weeknight and weekend rates 
(when Forums are most active, and standard 
online charges are just 10¢ a minute). 

@ Go online in most major metropolitan 
areas with a local phone call. 

e And receive a $25.00 Introductory Usage 
Credit with purchase of your CompuServe 
Subscription Kit. 


Information you simply can’t find 
anywhere else. 

Use the Forum Message Board to send 
and receive electronic messages, and pose 
specific questions to other IBM and com- 
patible owners. 

Join ongoing, real-time discussions in a 
Forum Conference. 

Search our unparalleled Forum Data 
Libraries for free software, user tips, tran- 
scripts of online conferences and more. 


Enjoy other useful services like: 
¢ Popular Computer Magazines—electronic 





WASN’T BORN WITH. 


editions, for your reading pleasure. Including 
Dr. Dobb’s Journal and Computer Language. 
¢ Other CompuServe Forums—supporting 
LOTUS® products like Symphony™ and 
1-2-3 Borland International? Ashton-Tate> 
Digital Research® MicroPro? Microsoft® and 
other software. Also Pascal, Basic, C, Forth, 
Assembly and other programming 
languages. 


All you need is your IBM or IBM- 
compatible computer and a modem 
...or almost any other computer. 

To buy your Subscription Kit, see your 
nearest computer dealer. Suggested retail 
price is $39.95. To receive our free bro- 
chure, or to order direct, call 800-848-8199 
(in Ohio, call 614-457-0802). If you're al- 
ready a CompuServe subscriber, type GO 
IBMNET (the IBM Users Network) at any 
| prompt to see what you've been missing. 


CompuServe’ 


Information Services, P.O. Box 20212 
5000 Arlington Centre Bivd., Columbus, Ohio 43220 


800-848-8199 


In Ohio, Call 614-457-0802 
An H&R Block Company 





Those who insist on C compiler performance 
are very big on Mark Williams. 


And the compiler is just part of our total C Programming System. 


Mark Williams C compiler has earned a place 
in some very big companies for some very good reasons: 
it proves the benchmarks right with the speed, code 
density, consistent performance and expert support 
required in professional development environments. 

But a total development tool shouldn’t stop with 
compiling. Or go on and on with extras that add up and up. 

Only Mark Williams C Programming Systems 
includes the csd C Source Debugger with true source 
level debugging to speed your programming job. 

And only Mark Williams’ new 3.0 version includes 
utilities like “make” to make quick work of even the 
largest projects. 

From source code to final product, only one takes 
you all the way: Mark Williams C Programming System. 
All for only $495. Ask about our 60-day money back 
guarantee when you call 





These and other powerful 
utilities now included in the C 
Programming System: 

* make: compiles only what's necessary 
from multiple modules, a powerful pro- 
gramming discipline 
* diff: identifies differences between two files 
* m4: macroprocessor expression editing 

and substitution 
* egrep: extended pattern search 
* MicroEMACS: full screen editor with source 


COMPILER FEATURES 


* Runs under MS-DOS 

* Full Kernighan & Ritchie C with recent 
extensions including void and enum 

* Register variables for fast, compact code 

* Full UNIX™ compatibility and complete 
libraries 

* 8087 Support 

* One-step compiling 

* English error messages 

* ROMable code 

* Large and small memory models 

* MS-DOS linker compatibility 

* Linker, assembler, archiver 

* Extensive third party library support 

csd C SOURCE DEBUGGER 


* Debugs at C source level without assembly 



































language 
* Separate evaluation, source, program and 4 ¥ 5 . 

eae nae : 1-800 692 1700 to order today: Mark 
* Can execute any C expression ; You'll be big on the total C Williams 
* Capabilities of a C interpreter, but runs in , 

real time s Programming system from Company 
* Set trace points on any statement or variable : 1430 West Wrightwood 

Mark Williams, too. Chicago, Minole 60614 
© 1985 Mark Williams Company *In Illinois call 312-472-6659. 


UNIX is a registered trademark of Bell Labs. 


Circle no. 102 on reader service card. 










DEMOS, TUTORIALS @ 
PROTOTYPES, PRESENTATIONS, 
TIMED KEYBOARD MACROS, AND 
MENU SYSTEMS 





Instant Replay memorizes how you ran your 

program and Instantly generates a Demo Replay. 
Keystrokes and pause times, inserted prompts, pop-ups 
and prototypes are all memorized. 


Screen Painter for creating 100% user designable pop-ups 
and Menu Windows. "Excellent, intuitive, easiest-to-use 
screen generator reviewed" PC Magazine . 


Run-Time Screen Scanner and File Scanner for creating Menu 
systems and presentations. 


Screen Grabber so you can edit and include any screen. 


Text Editor - fast, full function, with pull-down menus that can be tailored. 
Memorize it and distribute it as a Demo! 


200 Page Manual, 4 diskettes, 60 Day money back guarantee. 
(Not Copy Protected) 


Call or Write. We accept Visa, Amex, Master Card, COD, PO. 
Se B ae eS ER ACoe en EES ees 


Dealer Inquiries Welcome. 
Demo Diskette $ 5.00 


Dealer Poster CSE!) Nostradamus Inc. / 5320 South 900 East, Suite 110 
SLC, Utah 84117 / Order by phone (801) 261-0769 





For IBM PC / XT / AT and True Compatibles — Ask about Programming Libraries Circle no. 251 on reader service card. 
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Software To Tools 


FOR THE PROFESSIONAL PROGRAMMER 


ARTICLES 


‘ALGORITHMS: Curve Fitting with Cubic pores 
by Ian E. Ashdown 
Ian presents a program that can connect a set of points 
with a smooth curve or interpolate a surface between 
points plotted in three dimensions. 
ALGORITHMS: A First-Order Sorting Algorithm 32 
by Robert A. Mclvor 
_ The radix sort sometimes can perform electronic sorts 
faster than the exchange-based algorithms usually 
employed on computers. 
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LANGUAGES: Turbo Prolog: The venanese 36 
by Michael Swaine 

Our editor-in-chief examines some of the claims being 

made. Is it really faster? Is it full PROLOG? Is it a useful tool? 
HARDWARE: High-Speed Thrills 46 
by Mike Elkins and Steve King 

_ Installing an accelerator board is a relatively inexpensive 

_ Way to give an IBM PC, PC/XT, or compatible the throughput 

of a PC/AT. We benchmarked six of these boards. 


COLUMNS 


C CHEST: Directory Traversal, Trailing “Zs, and 
Horrifying Experiences 
by Allen Holub : 
A program that performs a number of functions with 
directory trees, a utility to let Microsoft's Macro Assembler 
read *Z terminated files, and a tale of woe _ 
16-BIT SOFTWARE TOOLBOX: MS-DOS eitod DOS 108 
File Handles, and More 
by Ray Duncan 
Other topics addressed by Ray and his readers include the 
VDISK-related crashes mentioned in April and problems 
with resident programs doing file I/O. : 
THE RIGHT TO es The 7 Memory Test 114 
_by Jan W. Steinman 7 
A aes test to ee eager memory errors _ 































About the Cover 
The architectural illustration for 
this cover was done by Robert H. 
Frank. The photograph was 
done by Michael Carr/Pacific 
Horizons. 
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This Issue 
Many algorithms now used on 
computers have their roots in 
mechanical processes. This 
month, we present two such al- 
gorithms; one that replaces the 
draftsman’s spline and one that 
sorts in an old fashioned (but 
sometimes faster) way. Michael 
Swaine offers some thoughts on 
Borland’s latest product, and we 
present a review of several PC 
speed boosters. Allen Holub and— 
Ray Duncan provide tasty tidbits, 
and Jan Steinman brings us a 
very unusual memory test. 
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DR. DOBB’S CATALOG: 
DDJ products—all in one 
place _ 
| OF INTEREST: 118 
New products of interest 

ADVERTISER INDEX: 126 
Where to find thoseads 















Next Issue 

In October, we'll take a close look 
at Intel’s 80386 chip. What does it 
really offer, and how do you up- 
grade from the 80286? We'll also 
demonstrate some interesting 
code for the NS320xx chip set. 

































EDITORIAL 6. 
_ by Michael Swaine 
RUNNING LIGHT. _s 
_ by Nick Turner _ 
ARCHIVES 8 | 
LETTERS 2 10 
by you — — 
_SWAINE’S FLAMES: _— 128 
_ Tiny Star Wars? | 
_ by Michael Swaine 
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PROGRAMMING BACKLOG IN HISTORY ARE ALSO 


LANGUAGES THAT ARE su THE BIGGEST 
LES IN OUR POCKETS. 


EATING NICE BIG H 






Whether it’s BASIC, COBOL, Programs that are easy to use. Imagine making source program 
Pascal, “C”, or a data base manager, Programs that area pleasure to changes with the ( LARION EDI 
youre being held back. write. TOR. A single keystroke termi- 

Held back because the language And to you that means true nates the EDITOR, loads the COM- 
has frustrating limitations, and the __ satisfaction. PILER, compiles the yen, loads 
programming environment isn’t You've coveted those nifty popup the PROCESSOR and executes the 
intuitive enough to keep track of help windows some major applica- _ program. It’s that easy! S 
what you're working on. tions feature. But you can’t afford _ Our data management capabili- 

In the real world, there’s pres- the time and energy it takes to ties are phenomenal. CLARION 
sure to do more impressive work, in —__ write them into your programs. files permit any number of compos- 
less time, and for more clients. That’s the way it used to be. ite keys which are updated dynami- 

We've been given some incredibly So we fixed that, too. ay 

werful hardware in recent times, CLARION’s HELPER is an _ A file may have as many keys as 
bat the languages aren't a whole lot _ interactive utility that let’s you it needs, Each key may be com- 
better than they were 20 years ago. design the most effective pop-up posed of any fields in any order. 

So, whatever language you have help screens that you can imagine. And key files are updated when- 
chosen, by now you feel it’s out to And they’re “context sensitive; ever the value of the ay changes. 
get you — because it is. meaning you can have help for Like SCREENER and RE- 

ure, no language is perfect, but ace field in your application. PORTER, CLARION’s FILER utility 
you have to wonder, “Am I getting nlike the other micro also has a piece of the CLARION 
all I deserve?” languages, CLARION provides COMPILER. To create a new file, you 

And, like money, you'll never declarations, procedures, and name the Source Module. Then you 
have enough. unctions to process name the Statement Label of a file 

Pretty dismal, huh? dates, strings, structure within it. 

_ We thought so, too. a screens, reports, FILER will also automatically 

So we did something about it. | ~__ indexed files, _ rebuild existing files to match a 

We call it CLARIO - DOS files and —_ changed file structure. It creates a 





You'll call it “incredible.” 
Distributed on 7 diskettes, 
CLARION consists of over 200,000 

lines of code, taking 3+ years to 
hone to “world-class” performance. 
With CLARION you can 
write, compile, run and debug 
complex applications in a 
New York afternoon. 
Even if you’re in Savannah. 
It gives you the power and 
S to create screens, windows 
and reports of such richness and 
clarity you would never attempt 
them with any other language. 
use you would have to 
write the code. 
With CLARION you simply 
design the screens using our 
SCREENER utility and then . 
CLARION writes the source code SAY ITIN 
AND compiles it for you in seconds. 
Likewise, you can use 
REPORTER to create reports. 
Remember, only CLARION can 
recompile and display a screen or 
report layout for modification. 
And with no time wasted. 


memory tables. new record for every existing rec- 
ord, copying the existing fields and 
initializing new ones. 
.. sounds pret aa huh? 
= Not with CLARION’s docu- 
mentation and ondine help 
screens. If you are currently 
| pia in BASIC, Pascal 
s or “C” you can be writing 
CLARION applications in a 
i= day. In two days you won't 
~ believe the eloquence of your 
CLARION programs. 
Okay, now for the best part of 
all. You can say it in CLARION 
for $295.00—plus shipping and 
handling. All you need is an IBM® PC, XT, 
AT or true compatible, with 320 KB of 
memory, a hard disk drive, and a parallel port. 
And we'll allow a full 30 day evaluation 
period. If you're not satisfied with 
C N, simply return it in its 


S ee condition for a full refund. 
L ARION you're not quite ready to take 
advantage of this no-risk 
opportunity, ask for our detailed 16 
Dept. A2ST/4 page color brochure. It vividly 
illustrates the elegance of 
Olen 5444 CLARION. Consider it a preview of 
See cea in the fast lane. 
ees Mast ither way, the 800 call’s a freebie. 
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All the power and facilities you ]-800-3 








need to write great pr S, faster 
than you ever Aciathiod of. 


BARRINGTON INC. 150 EAST SAMPLE ROAD POMPANO FLORIDA 33064 305/785-4555 


IBM is a registered trademark of International Business Machines Corporation. CLARION™ is a trademark of Barrington Systems, Inc. ©1986 Barrington Systems 
Circle no. 115 on reader service card. 
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nalogies, a problem — 
nachine learning. My 
m worked, after a fash- 
ever got anywhere with 

machine learning program. 
oking back over the past few 










d domain-specific knowl- 
1 expert systems have | 


3, San Jose, California, San 
rcury News, amid grumblings 
e industrywide slump in soft- 
omputers, and electronics, 
ne expert systems compa- 
ledge, was doing spectac- 









learning never makes it 
Mercury News; nevertheless, 
rch in machine learning has 
ued quietly over the years— 
ot without results. There are, 
example, programs whose per- 
ance improves with experience 













work. Understanding natural lan- 


requiring a body of expert knowl- 











that we would only need one. Given 
one, we could clone it. 


‘programs will probably be unreli- 
able, and this may force us to start 
way. Induction and generalization 
| ity and reliability necessary for Star 
| may well be an in 


find ourselves praising programs for 
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and programs that de- 
velop new problem- 
solving heuristics. 
There are programs 
that produce interest- 
ing analogies. 

I hope that machine 
learning is about to 
capture the imagina- 
tions of programmers 
and venture capital- 
| ists. The _ potential 
benefits from work in machine 
learning are, I believe, far greater 
than the benefits of expert systems 











guage, for example, requires the abil- 
ity to learn new concepts rather than 


edge. And by the very nature of the 
learning process, it seems that any 
learning program would have to be 
general in application, suggesting 





Also by the nature of the learning 
process, the performance of learning 


looking at programs in a different 
seem incompatible with the provabil- 
Wars-type projects. Making mistakes 


extricable compo- 
We may one day 











nent of learning. 


their efforts as much as for their 


results. 


The review of PC speed-up boards 
in this issue was completed before 
we knew of this manufacturer of a 
comparable board: : 

STD (Seattle Telecom & Data Inc.) 
2637 151st Pl. NE 

Redmond, WA 98052 

(206) 883-8440 


Yi clael Sivan 


Michael Swaine 
editor-in-chief 
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The C for Microcom 


"2 PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack, 


Gorn a ae 


Commodore, XENIX, ROM, and Cross Development systems 


Manx Aztec C86 
‘A compiler that has many strengths ... quite valuable 
for serious work” 

Computer Language review, February 1985 
Great Code: Manx Aztec C86 generates fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 pl1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


Execution Code Compile/ 
Time Size Link Time 


Dhrystone Benchmark 
Manx Aztec (863.3 34secs _—5,760 
Microsoft C 3.0 34 secs 7,146 
Optimized C86 2.20) 53secs 11,009 
Mark Williams 2.0 56secs 12,980 
Lattice 2.14 89secs 20,404 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 

Optimized C compiler 
AS86 Macro Assembler 
80186/80286 Support 
8087/80287 Sensing Lib 
Extensive UNIX Library 
Large Memory Model 

Z (vi) Source Editor -c 
ROM Support Package-c INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF and GREP -c Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


Symbolic Debugger 

LN86 Overlay Linker 
Librarian 

Profiler 

DOS, Screen, & Graphics Lib 
Intel Object Option 

CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 


ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 
PHACT $250 
HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 
WindScreen $149 FirsTime $295 
SunScreen $99 __C Util Lib $185 
PANEL $295 Plink-86 $395 


Greenleaf $185 
PC-lint $98 


VIA ee ere me tems ET en toe C-tree TM Faircom, inc., PHACT TM PHACT ASSOC. Ci Optimizing C86 TM Computer | 
! GIMPLE Seem afiare reel Teme acter (laa RCW a) roel =) VT St eg = etre oat Computer Systems Lid.. WINDOWS FOR C TM Creative Solut 


Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in ... blows 
away the competition for pure compile speed ... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 
Optimized C 
Macro Assembler 
Overlay Linker 
Resource Compiler 
Debuggers 
Librarian 

Source Editor 
MacRam Disk -c 
Library Source -c 


Creates Clickable Applications 
Mouse Enhanced SHELL 
Easy Access to Mac Toolbox 
UNIX Library Functions 
Terminal Emulator (Source) 
Clear Detailed Documentation 
C-Stuff Library 

UniTools (vi,makediff,grep) -c 
One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 


C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 
Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 


AMIGA, CP/M-68k, 68k UNIX call 


Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3. $399 
Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 
Aztec C65-c/128 C64, C128, CP/M $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec CI 


‘Tve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 


How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information. 
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puters | 


FORUM 


soit ThinkTank. 


Even venerable Ap : 


ple Computer is finally 
going to produce a 
Macintosh with slots. 


What is this world 


coming to? 
We think the indus- 
try is finally becoming 


respectable. Now that — 


there are enough cus- 


__| tomers so that a small © 
a percentage of the market share can 
| mean a large change in dollar vol- 
| ume, the customer’s feelings about a 
| product are suddenly important. We 
| encourage you to let your feelings be 
| known. Now that companies are fi- 
nally starting to respond in a big way, 
| your voice can make a difference. 


This month's hint for writers con- 


cerns communication—from us to 
you and back. First, we want to re- 


mind you of how important it is to 


| include a phone number with every 
letter, manuscript, outline, or pro- 

_ posal that you send us. Often we save 
several weeks of correspondence by 

| calling you directly and discussing 


rd | your idea over the phone. 


we send out at various times during 
the article editing process. If you 
send us a manuscript, you will defi- 
| nitely get some sort of a reply within — 
a few weeks. If your article is not re- 
ected right away, | it will be put into a 


le- toes font : for its. 
aries of idea-processor 
1e response | from | ae 


We have a set of form letters that 


much as a month in there before it 
gets assigned or rejected. If you have > 


sent a manuscript into DDJ and you 


haven't heard from us ina while, feel 
- free to call me. I'll be happy to look it — 


up and let you apes wats 


happening. 


Wis | 


Nick Turner 


editor 








will give Zilog’ s Z80 so 


_ More details when we have e rT 
| oe! 1976. : 


‘Steve bee DDJ, Septer 
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DATALIGHT C DELIVERS 


PERFORMANCE | 


DATALIGHT C $60 » THE DEVELOPER'S KIT $99 





The DATALIGHT C Compiler is a 
performer through and through. 
From the UNIX System 5 language 
with the latest ANSI extensions 
(prototyping), to the top compile 
speed, with the understandable 
error interface, on to the tight/fast 
code — the Performer shines. Per- 
formance comes in two sizes: THE 
DATALIGHT C Compiler, and the 
DEVELOPER'S KIT. 


DATALIGHT C provides you with a 
full range of features, like full 8087 
and software floating point, a 
UNIX-style MAKE program, one- 
step compile/link, and UNIX-like 
tools in source form. You also get 
automatic .COM file generation, 
MS-DOS compatible object files, 
third-party library/debugger sup- 
port, and much more. 


The DEVELOPER'S KIT provides 
the extra features required by the 
serious programmer. The DEVEL- 
OPER'S KIT allows you to build 
programs as BIG as the memory in 
your PC. You can also tailor your 
applications to your special PC or 
ROM-based needs using the start- 
up and library source provided. 


And what do our users think? 


They love us! In fact, the ones who 


ORDER NOW! 30-DAY MONEY-BACK GUARANTEE. 


YES, I WANT THE PERFORMEB!!! 


By phone call 1-800-628-2828 — Ext. 571 (Orders only) 


Technical Information (206) 367-1803 
I want 
I want 


Add $5 for shipping in US/$15 outside US. 


NTR a es ee Ce eee 


ADDRESS 





CITY SLad 6 22 2P 

Le Be ae A eg a as 
EXPIRATION DATE 

P.O. # 


Circle no. 203 on reader service card. 





copies of DATALIGHT C ($60) 
copies of the DEVELOPER'S KIT ($99) 








own higher-priced compilers love 
us the most because they know what 


PERFORMANCE really is! 


"This is a sharp compiler! . . . what 
Is impressive is that DATALIGHT 
not only stole the compile time 
show completely, but had the fast- 
est Fibonacci executable time and 
had excellent object file sizes 
to boot!” Chris Skelly 

COMPUTER LANGUAGE 


‘I have and actively use Microsoft 
C version 3.0, Mark Williams C, 
and Lattice version 3.0, in addition 
fo your compiler. Of all the com- 
pilers that I have used yours really 
stands out as the best package.” 
Matthew Brandt 
TANGENT TECHNOLOGIES 


Of all the MS-DOS C compilers 
available, we have chosen DATA- 
LIGHT for all our development.” 
Keven Smith Drew Gileson 
TRAVELING SOFTWARE 


90 why wait? You can have the Per- 
former, a 30-day money-back guar- 
antee, and the call is on us. So 
order now! 


Datalight 


P.O. BOX 82441 
KENMORE, WA 98028 
(206) 367-1803 


C.O.D. (add $2.50) 


(attach copy) 





DATALIGHT C (Ver 2.10) 


@ Full UNIX System 5 C Compiler with 
ANSI extensions. 


@ Fast/tight code. 
@ 8087 & software floating point. 
@ Full UNIX compatible library. 


@ MAKE program with macros, 
dependency checking, and MS-DOS 
internal commands. 


M@ DLC one-step compile/link program. 
@ Tools in source 

(diff, cat, pr, wc, rm). 
@ Powertul utilities in source form. 


@ Compatible with MS-DOS linker. 


DEVELOPER'S KIT (Ver 2.10) 

@ All features of DATALIGHT C! 

@ Third-party library support. 

@ Multiple memory model support 
@ Small 64k code 64k data 
@ Data 64k code 1Meg data 
M Program lMegcode 64k data 
@ Large lMegcode 1Meg data 

H@ Complete SOURCE CODE for 

libraries. 
@ Complete SOURCE CODE for start- 


up routine. 


HM ROMable code. 


MS-DOS is a trademark of Microsoft. 
UNIX is a trademark of Bell Labs. 
Lattice C is a trademark of Lattice Inc. 
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The Right to 
Optimize 

Dear DDJ, 

Richard Campbell’s March 
column on NS32016 square 
root calculations prompted 
me to implement his algo- 
rithm on my 68000 system 
and do some comparative 
measurements. My system 
is a 68000 board hooked to 
an Apple II computer run- 
ning at an effective clock 
rate of approximately 8.1 
MHz. (The nominal clock 
rate of 12.5 MHz is slowed 
down by one additional 
wait cycle on every bus 
transfer and a software D- 
RAM refresh scheme.) 

Unfortunately, I do not 
have a C compiler for my 
board, so I had to resort to 
rewriting Mr. Campbell's 
program for what I have 
available, which is a UCSD 
p-code System adapted 
from Apple Pascal to the 
68000. One of the limita- 
tions of this system is that it 
handles only 16-bit signed 
integers, so I had to use 
some routines of my own 
to support 32-bit integer 
arithmetic in order to stay 
compatible with Mr. 
Campbell’s benchmarks, 
which used a loop from 0 
to 60,000 to time the square 
root routines. 

As the Pascal compiler 
produces p-code object pro- 
grams, I wrote the square 
root routine in 68000 assem- 
bly language and linked it 
as an external procedure to 
the surrounding Pascal pro- 
gram [Listing One, page 56]. 
For performance measure- 
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ments, I used a system time 
procedure with a resolu- 
tion of 1/60th of a second 
and, like Mr. Campbell in 
his article, a loop perform- 
ing 60,001 calls to the 
square root routine with ar- 
guments ranging from 0 
through 60,000. To derive 
the time it takes for the 
square root routine to exe- 
cute, I measured the execu- 
tion time of the Pascal pro- 
gram and then subtracted 
from it the execution time 
of the same program linked 
to a routine that skips the 
calculation of the square 
root; the latter time there- 
fore represents the over- 
head for the loop and the 
procedure call mechanism, 
which has nothing to do 
with the square root algo- 
rithm itself. 

Using the routine that 
mimics Mr. Campbell's 
compiler-generated code 
[Listing Two, page 56], the 
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program executes in 16.73 
(+/— 0.02) seconds on my 
system (without printing 
or counting shifts and divi- 
sions) and the empty shell 
program needs 12.08 sec- 
onds. Calculating 60,001 
square roots, therefore, 
takes 4.65 seconds, for an 
average of 77.5 microsec- 
onds per square root. To 
answer Mr. Campbell's 
question about whether 
hand optimizing the as- 
sembly code is worth it, I 
did just that. Using the 
same measuring proce- 
dure as above, the opti- 
mized code [Listing Three, 
page 56] needed 3.90 sec- 
onds to perform the 60,001 
square root calculations 
(without overhead), for an 
average of 65 microsec- 
onds per square root—a 
speedup of about 16 per- 
cent. In my book, that is 
well worth the little trou- 
ble it takes to optimize the 
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routine, especially if it is 
used often. 

To find out by how much 
Mr. Campbell’s algorithm is 
faster than the algorithm 
mentioned by Jim Cathey, I 
also performed the mea- 
surements for a program 
using that algorithm to cal- 
culate the square root [List- 
ing Four, page 58]. Without 
overhead, Mr. Cathey’s al- 
gorithm took 8.66 seconds 
to perform the 60,001 
square roots, or an average 
of 144 microseconds per 
square root; it is therefore 
almost twice as slow as the 
unoptimized code for Mr. 
Campbell's algorithm. 

To compare my results 
for the MC68000 with the 
published ones for a 6-MHz 
NS32016, they should be 
multiplied by a factor of 
1.60 (9.6 MHz/6 MHz) to get 
timings equivalent to a 6- 
MHz 68000. If this is done, 
the time to calculate a 
square root using the unop- 
timized code becomes 124 
microseconds, the opti- 
mized version needs 104 
microseconds, and the 
square root calculation us- 
ing bit shifting needs 231 
microseconds. This clearly 
disproves Mr. Campbell's 
statements about the supe- 
riority of the NS32016. 

Regarding Mr. Camp- 
bell’s comments about the 
bit-shifting algorithm “hit- 
ting the NS32016 below the 
belt,’ I can only say that 
Mr. Cathey’s algorithm 
was not specifically de- 
signed to do that but is rath- 
er a general-purpose algo- 
rithm that merely points 
out certain weaknesses in 
the NS32016’s design. In my 
opinion, the MC680xx fam- 
ily is clearly superior to the 
microprocessors of the 
NS320XX family; everything 
you can do with a NS32016, 
you can also do on a 
68000—often more easily, 
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XTC® is a PC programmer's dream come true. Just ask the 
thousands of programmers who've already awakened to the 
extraordinary features of this world class editor, designed for 
the IBM PC and true compatibles. 

Features like XTC’s interpretive macro language that lets 
you code macros on the fly. And fine-grained multitasking so 
you can run macros in the background while you continue 
editing. 

Of course, XTC also lets you code macros in a high level 
language. And with the macro compiler you can write macros 
to check syntax in real time and translate source code from 
one language to another. 

What's more, DOS compilers, linkers and utilities will run 
inside XTC so you don't have to leave the editor to compile 
and test run your programs. 

If that’s not enough, XTC has multiple large windows, 20 
text buffers, and a host of other powerful features no other 
editor can offer. 

In brief, you'll find little to compare with the power, flexibility, 
and advanced features that make XTC outshine the 
competition every time. 

So if you're still dreaming about the ultimate editor, wake 
up. It could be right before your eyes. 


XTC. From Wendin. Only $99, 


® 







fi CHENEY, WA 99004 


The people who make quality 
software tools affordable. 


© Copyright 1986 Wendin, Inc. 


MS is a trademark of Microsoft; PC-DOS is a trademark of IBM; UNIX is a Wendin and XTC are registered trademarks of Wendin, Inc. 
trademark of AT&T: VAX/VMS is a registered trademark of Digital Equipment PCUNIX, PCVMS, Operating System Toolbox, and Personal Operating System 
Corporation are trademarks of Wendin, Inc. 
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hen Dawn On You? 


Ask about our other 
products for the IBM PC 


and true compatibles. 


PCVMS™ 


Multitasking, multiuser version of 
DEC’s powerful VAX/VMS 
operating system. Runs most MS- 
DOS programs. 


PCUNIX™ 


True multitasking, multiuser 
operating system similar to 
AT&T’s popular UNIX® operating 
system. 


OPERATING SYSTEM 
TOOLBOX™ 


Complete software construction 
set that lets you build your own 
multitasking, multiuser operating 
systems. 


All products priced at $99 with 
source code included. 


ORDER HOTLINE 


(509) 235-8088 


(MON.-FRI., 8-5 PACIFIC TIME) 


a 
VISA MasterCard 
areas 


DEALER INQUIRIES WELCOME 


Foreign orders inquire about shipping. 
Domestic orders add $5.00/1st item, 
$1.00 each additional item for shipping, 
handling, and insurance. 

Washington residents add 7.8% sales tax. 
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(continued from page 10) 


usually faster, and then 


some, as illustrated above. 

Other than that, I agree 
with Mr. Campbell's con- 
clusion that many bit-level 
tricks of the 8-bit era are 
outdated and should be re- 
placed by newer and faster 
algorithms more appropri- 
ate for 16/32-bit proces- 
sors. | hope to find exactly 
such articles in future is- 
sues of DDJ. 

Thomas Wieland 

8676 Anthony, #5 

Pierrefonds, PO H84 2B6 

Canada 
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8080 Simulator 
Dear DDJ, 
Hats off to Jim Cathey for 
such a nice and useful 
piece of MC68000 code. [See 
“COM: An 8080 Simulator 
for the MC68000," January 
1986.) After I had typed in 
the code (only one typo 
and an easy to find one at 
that), I couldn’t resist add- 
ing Z80 relative jumps and 
djnz [Listing Five, page 58]. 
In an attempt to improve 
on the simulator’s speed, 
and remembering an old 
trick from FORTH compiler 
writing days, I expanded 
mloop, which I. duly 
dubbed NEXT, at the end of 


* clr hi word 

* fetch next opcode 

*d0 <-- offset into word table 
* dO max is $ff << 1 ($1fe) 

* exec opcode 


Table 1: Improved NEXT routine for 8080 simulator 


ASMLIB 





@ ASCII String/Numeric conversion routines provide a user interface to the math 
functions. ASFORMAT function allows numeric values to be formatted utilizing 
commas, dollar signs, left or right justified, etc. (ie. BASIC’s PRINT USING). 


@ Mouse Support - ASMLIB provides support for any mouse device which adheres to the 


MS Mouse software standard. 


@ Dynamic Memory support can utilize all available memory (up to 640k). Blocks of 
memory can be allocated, changed, moved, and killed. 


®@ Console I/O, Disk I/O with file copy routines, Asynchronous Communications, Printer 
Support, ASCTI String support, Sound generation, plus much more 


ASMLIB is supplied with complete MASM source code on 3 DOS diskettes along with a 


215+ page reference manual. 


- ALL FOR ONLY - 
$149.00 


For ordering or info please call: 
BC Associates 
13073 Springdale St., Suite 134 
Westminster, CA 92683 
(714) 741-3015 


Phone COD orders accepted - ORDER YOURS TODAY!!! 


Assembly Language Programming Library 
for the IBM PC/XT/AT or compatible DOS systems. 


ASMLIB gives the Assembly Language 
programmer 190+ assembly functions which do - 


@ Graphics functions draw CIRCLES, ARCS, ELLIPSES, LINES, and plots POINTS on 
the Color Adapter, Enhanced Graphic Adapter, and the Herc. Monochrome Card. 
Functions also allow PAINTING, IMAGE SAVES and RESTORES, and SCROLLING. 


@ Text Windows - Up to 6&4 text windows may be defined, outlined, overlapped, moved, 
and can be grouped onto 256 logical display pages. 


@ Floating Point - Arithmetic and Trigonometry functions for the MS and IEEE (8087) 
floating point formats (both 4 and 8 byte precision), and the 8087 (80287) can be 
utilized automatically if installed into the target system. 




























every opcode simulation, 
thereby gaining eight t-cy- 
cles per simulated 8080 in- 
struction as well as freeing 
a6 for other purposes (I 
promptly used it to point to 
pseudo-HL). 

If your system is config- 
ured with CP/M-68K above 
the TPA in such a way that 
the simulator runs below 
$8000, you can even go a 
step further by having a 
jump table (optabl) in the 
shape of dc.ws and a NEXT 
that looks like that shown 
in Table 1, left. 

Together with various 
minor alterations too volu- 
minous to present here, 
this last modification sped 
up the simulator to such an 
extent that it now runs 
slightly faster than SoftDe- 
sign’s Z80 emulator, alas 
without providing full Z80 
support. As many CP/M-80 
programs don’t use the ex- 
tra Z80 instructions any- 
way, this restriction is sel- 
dom felt. 

In order to spare other 
CP/M-68K users a set of blis- 
tered fingers, I will gladly 
copy the source for anyone 
who provides a formatted 
8-inch or 5'4-inch floppy 
disk (please give fcb and 
skew details if not 8-inch 
SSSD). 

Edmund Ramm 

Postfach 38 

D-2358 Kaltenkirchen 

West Germany 


Corrections 
Dear DDJ, 
The C implementation of 
Bresenham’s line-drawing 
algorithm that appeared in 
the May 1986 issue contains 
several errors. [See ‘‘Simple 
Plots with the Enhanced 
Graphics Adapter” by Na- 
bajyoti Barkakati.] These 
errors cause the routine 
v_draw to fail in the first 
and third quadrants. I have 
enclosed a corrected ver- 
sion, c_draw [Listing Six, 
page 62]. 

In v_draw, a statement 


on line 75 is missing alto- 
gether. This causes the rou- 
tine to break in a not so sub- 
tle manner; I assume the 
omission is a misprint. 
However, initialization of 
the decision variable d 
(lines 34 and 80) is incom- 
plete, resulting in some- 
what more obscure prob- 
lems. The value to which d 
must be initialized depends 
upon whether the line 
slope is positive or negative. 
If the initialization is han- 
dled incorrectly, symmetry 
is destroyed and endpoint 
overrun errors are intro- 
duced. These problems 
may not show up uriless the 
routine is tested at all the 
boundary conditions. 

The line-drawing rou- 
tine runs rather slowly 
when the BIOS point-plot- 
ting routine is used, even 
on an IBM PC/AT. Possibly 
the use of Bruce Smith's as- 
sembly-language point- 
plotting algorithm, pub- 
lished in the January 1985 
16-Bit Software Toolbox, 
would speed things up. 

Joseph N. Mente 

Titanic CodeWorks 

916 Olive Rd. 

Homewood, IL 60430 


Listing One of Everett Car- 
ter’s article, ‘“Forth Goes to 
Sea,’ July 1986) was trun- 
cated. The rest of the listing 
begins on page 50. 


DDJ 


(Listings begin on page 56.) 


Circle no. 182 on reader service card. 
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*89 Price 


@ Separate Compilation 

m@ Native Code Generation 

@ Large Memory Model Support 

@ Multitasking 

@ Powerful Debugging Tools 

@ Comprehensive Module 
Library 

@ Available for the PC 
and the VAX 


Move up to LOGITECH 
MODULA-2/86. Whether 
you're a single programmer or part of a team, 
with LOGITECH MODULA-2/86 you'll 
decrease your overall development cycle 
and produce more reliable, more main- 
tainable code. Build your program using our 
extensive library modules, your own 
modules or those from a growing list of 
available third-party software vendors. If 
you're a Turbo Pascal user you can even 
take your existing code along with you with 
the help of our new Translator! 
eed ese ae cll 


Turbo Pascal to p 
Modula-2 Translator 49 
Now it’s even easier for Turbo users to step 
up to Modula-2/86. Our improved Trans- 
lator changes your Turbo source code into 
Modula-2/86 source, solving all the incom- 
patibilities, and translating the function 
calls of Turbo into Modula-2/86 procedures. 
Implements the complete Turbo library! 
acta i aA get he raider se ean andl gated 
LOGITECH MODULA-2/86 *89 
Complete with Editor, Run Time System, 
Linker, 8087 Software Emulation, Binary 
Coded Decimal (BCD) Module, Logitech’s 
comprehensive library, Utility to generate 
standard .EXE files. AND more! 
@ | OGITECH MODULA-2/86 

with 8087 Support $129 
@ LOGITECH MODULA 2/86 PLUS *189 
For machines with 512K of RAM. Takes 
advantage of larger memory to increase 
compilation speed by 50%. 3 
alltel lana gist ca aaa I a eo 

Turbo Pascal is a registered trademark of Borland 
International. 





RUN TIME DEBUGGER 69 
(Source level!) 

The ultimate professional’s tool! Display 
source code, data, procedure call chain and 
raw memory. Set break points, assign values 
to variables, pinpoint bugs in your source. 
slithering ofall cat 
UTILITIES PACKAGE 49 
Features a post-mortem debugger (PMD). 
If your program crashes at run time the 
PMD freezes the situation so you can pin- 
point, in the source, the cause of the error 
and the status of the data. Also includes a 
disassembler, cross reference utility and ver- 
sion that allows conditional compilation. 
scm ge ae cattle 
LIBRARY SOURCES 599 
Source code for our major library modules 
is now available for customization or exem- 


plification. 
ig er atc candies sakes asp s S S 
WINDOW PACKAGE 549 


Now you can build true windowing into 
your Modula-2 code. Powerful, though only 
15K in size. Features virtual screens, color 
support, overlapping windows and a variety 
of borders. 

spel rsiesierrinsiintemne tial cals tet La ee 
MAKE UTILITY 529 
Automatically selects modules affected by 
code changes to minimize recompilation 
and relinking. Even figures out dependen- 


cies for you! 

ih petri Sahar likintnia adap nia prt nl 
CROSS RUN TIME DEBUGGER 

AND ROM PACKAGE 5199 


Now available at an introductory price! 
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EE _$L_ EE 


NEW, 


improved Turbo 
Pascal to Modula-2 
Translator! 





Call for information about our VAX/VMS 


version, Site License, University Discounts, 
Dealer & Distributor pricing. 


To place an order call our special 
toll free number: 


800-231-7717 


In California: 


800-552-8885 


I want to move up to 
LOGITECH MODULA-2/86! 


YES 


Here's the configuration I'd like: 


_] Logitech Modula-2/86 $89 

_] with 8087 support $129 

L_] Plus Package $189 
_] Turbo to Modula Translator $49 
LJ] Run Time Debugger $69 
L] Utilities Package $49 
L_] Library Sources $99 
LJ Window Package $49 
L] Make Utility $29 
L] ROM Package $199 
Total Enclosed $ 


LJ] Visa O Mastercard 0 Check Enclosed 


Card Number Expiration Date 





Signature 


Lee 


Name 





Address 





City. State 





Zip Phone 


LOGITECH 


Logitech. Inc. 

805 Veterans Blvd. 
Redwood City. CA 94063 
Telephone 415-365-9852 

For European pricing please contact: 
_ Logitech SA 
Box 32. CH-1143 
Apples, Switzerland 
Telephone 41-21-774545 











COLUMNS 


C CHEST 


Directory Traversal, Trailing *Zs, and Horrifying Experiences 


Directory Traversal 

his month I’m going to look at 

another sort of tree—a directo- 
ry tree. The program presented here 
does several things, depending on 
how it’s invoked. If the program is 
named whereis.exe, then the com- 
mand whereis <fname> will search 
the entire directory tree for a file 
called fname, printing the full path 
name of the file when it’s found. 
Wildcard characters are recognized 
in the name (as in whereis *.c). Be 
careful if you’re running this pro- 
gram under the shell. You'll have to 
escape the wildcards to prevent the 
shell from expanding them (whereis 
“* c’’ or whereis \*.c ). 

By renaming the same program to 

dtree.exe, several functions are add- 
ed. The basic command syntax is: 


dtree [root] [—f<name>][—s]{—d] 
[—-ecmdarg...] 


The root indicates where to begin the 
directory traversal. If it’s not speci- 
fied, then / is used. Thus, dtree (with 
no arguments) descends recursively 
through the entire directory tree, 
starting from the root directory, 
printing a list of all the directories on 
your disk. Dtree <dname> prints a 
list of all directories at or below 
<dname> in the directory tree. So 
dtree / works in the same way as 





by Allen Holub 





dtree without arguments does. Dtree 
/src prints a list of all subdirectories 
below /src (including the subdirec- 
tories of the subdirectories). Table 
1, page 16, shows a sample output 
from my own disk. 

The —d command-line switch 
causes a graphic representation of the 
directory tree to be printed rather 
than a simple list of the names. If —s is 
specified too, short names are used in- 
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stead of the full path name. An exam- 
ple is given in Table 2, page 16. When 
the program’s output is redirected to a 
file, it’s printed as shown (with plus 
signs and dashes). If output goes to 
stdout, the IBM box-drawing charac- 
ters are used so that you have a pretti- 
er picture on the screen. 

The —e switch is used to execute 
commands. All command-line argu- 
ments that follow —e are taken as a 
command that will be executed from 
each directory as it’s visited. A space 
must follow the e. For example: 


dtree / —els —1 


prints a list of every file in every di- 
rectory on the disk using the /s long 
format (that is, because the —!/ fol- 
lows the —e on the command line, 
it’s passed to Is rather than being in- 
terpreted by dtree). The directory 
name is printed too (just before the 
command is executed). If you need to 
execute either a batch file or a com- 
mand that’s part of the shell, you 
have to invoke the shell explicitly. 
Examples are: 


dtree / —e command /c dir 

dtree / —e command /c batchfile 
arg arg arg 

dtree / —e sh batchfile arg arg arg 

dtree .—eshcp“*.c’ a: 


The first example does the same as 
dtree —e Is does except that the dir 
command (that’s internal to COM- 
MAND.COM) is used. The second exam- 
ple executes an MS-DOS batch file; the 
arguments following the file name 
are passed to the batch file. The third 


example does the same, but my own 
shell (as distributed by DDJ) is used 
rather than COMMAND.COM. The last 
example backs up all .c files in an en- 
tire system—that is, it copies all .c 
files in the current directory and any 
subdirectories to the a: drive. The ex- 
plicit invocation of the shell is neces- 
sary because wildcard expansion 
must be done in each directory as it’s 
visited, and this expansion is done by 
the shell, not by cp. Had you said: 


dtree . —ecp*.ca: 


the *.c would have been expanded 
by the shell to all files in the current 
directory that end in .c. Dtree would 
copy these and then descend to a sub- 
directory and try to find files having 
the same names as the ones in the 
parent (because the *.c is expanded 
by the shell before diree ever sees the 
command line). 

The switch —f<name=> (no space 
between f and <name> ) causes the 
program to search for the file called 
<name>. So dtree / —f<name> 
does the same thing as whereis 
<name> does. Using dtree rather 
than whereis has two advantages. 
First, dtree can start the search at any 
directory, but whereis always starts 
at the root. So: 


dtree /src — ffoo.c 


finds foo.c only if it exists at or below 
/src in the directory tree. The second 
advantage comes from using —f and 
—e together on a single command 
line. Here, the command is executed 
only if the file is found. For example, 
if you’re running under sh. (rather 
than COMMAND.COM) using the rm 
program provided with the /util 
package to remove files: 


dtree / —ffoo —e rm foo 


Finds all occurrences of the file foo 
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GRUNT WORK. 





Let Greenleaf do it for you 
and set you free. 


C Program developers, 

stop slaving! 

Greenleaf libraries have the 
functions you need — already 
perfected and in use by winning 
program developers in major 
corporations such as IBM, EDS 
and GM. 


Between our Greenleaf Functions 
and Greenleaf Comm Library, we 
have over 340 functions on the 
shelf. Each one can save you 
time and effort. Money, too. 


Many C programmers have told 
us that, even if they only use one 
or two functions, our products 
easily pay for themselves: 


The Greenleaf Functions 


The most complete and mature C 
language function library for the 
IBM PC, XT, AT and close 
compatibles. Our version 3.0 
includes over 225 functions — 
DOS, disk, video, color text and 
graphics, string, time/date, 
keyboard, new disk status and 
Ctr1-Break control functions plus 
many more! 


The Greenleaf Comm Library 


Our 2.0 version is the hottest 
communications facility of its 
kind. Over 120 all new functions 
— ring buffered, interrupt-driven 
asynchronous communications. 








Call Toll Free 


1-800-523-9830 


In Texas and Alaska, call 


214-446-8641 





Fe 
Tye 





GREENIEAF 
S oo 
Greenleaf Software, Inc. 


1411 LeMay Drive Suite 101 
Carrollton, TX 75007 


If you need more than 2 ports, 
only Greenleaf gives you the total 
solution — boards, software, and 
complete instructions that enable 
you to build a 16-port 
communication system. 


And no matter how many ports 
you have, it’s virtually impossible 
to lose information with multiple 
file transfers. XMODEM, XON/ 
XOFF and Hayes modem 
controls are featured. 


We support all popular C 
compilers for MS DOS: Lattice, 
Microsoft, Computer 
Innovations, Wizard, Aztec, 
DeSmet and Mark Williams. 


Order today! 


Order a Greenleaf C library now. 
See your dealer or call 1-800- 
923-9830. Specify compiler 
when ordering. Add $8 for UPS 
second day air, or $5 for ground. 
Texas residents, add sales tax. 
Mastercard, VISA, P.O., check, 
COD. In stock, shipped next day. 


Greenleaf 

Comm Library v2.0 $185 
Greenleaf Functions v3.0 $185 
Digiboard Comm/4-I] $315 
Digiboard Comm/8-II $515 


We also sell compilers, books and 
combination packages. 
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on the disk and deletes them, and: 


dtree /src/trees ‘‘—f *.bak” —e 


sh —c rm ‘*.bak’’ 


deletes all .bak files in the /src/trees 
directory (and any subdirectories of 
/src/trees ). The —f argument has to 
be quoted to prevent the shell from 
expanding it (dtree expands the wild- 
cards itself and —f can take only one 


































/src 
| /src/getargs 
/src/grep 
-{sre/nr | 
/src/nr/hyphen — 
/src/red 

/src/shell 
/src/shell/util 
/src/shell/util2 
/src/sm 
/src/small—c _ 
_/src/sml—tool 
/src/tools — 
/src/tools/doc 
/src/tools/lattice 
/src/tools/old 
/src/tools/trees 
/src/tools/trees/old 
/src/util 





Table 1: Output from dtree /src 


src 


| +-——getargs 

+ -oept~=s 
+r Ce 

i. +--hyphen 
ces 
— 

i. +-2 

4 .esm 

| +-----small-c 

| +.—..smi-tool 


<= 





4 +..---lattice 

' +.—old 

t + ..---trees 

; + .----old 
+l 


Table 2: Output from dtree / src 
—d—s>file 
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argument). Similarly, rm doesn't ex- 
pand wildcards so you must invoke a 
shell to do it. The *.bak has to be 
quoted so that the subshell will do the 
expansion instead of the current shell. 

Because the delete and copy func- 
tions are built into COMMAND.COM, 
you Can say: 


dtree /src —f *.bak —e command /c 
copy *.c a: 


to do the equivalent operation from 
outside the shell. You don’t have to 
quote any arguments because COM- 
MAND.COM won't expand them; copy, 
on the other hand, will. 


Dtree.c 

The source for dtree( ) is in Listing 
One (page 62). The modus operandi of 
the program is determined in main( ) 
on lines 380—394. Main( ) examines 
argv[0] to see by what name it was 
invoked. If whereis is used, the if 
clause is executed; if anything other 
than whereis is used, then the else 
clause is executed. Note that argv/0/ 
isn’t supported by DOS, Version 2.x, SO 
this.automatic configuration will 
work only if you're using DOS 3.x or if 
you're running the shell (the 
reargv( ) function will give you ac- 
cess to argv/0] ). 

The main( ) routine also deter- 
mines which character set to use for 
tree printing (on line 397). It does this 
in the same way as does the print rou- 
tine I discussed last month. The same 
limitations apply, too (that is, graph- 
ics are used unless standard output is 
redirected to a file). The signal( ) call 
on line 405 is necessary because the 
traversal algorithm actually changes 
the current directory as it traverses. 
The signal( ) call sets up the interrupt 
system so that when a °C is encoun- 
tered, the current directory will be 
set back to whatever directory you 
started from when the program boot- 
ed. The actual resetting is done in on- 
intr( ) on lines 361 — 366. 

Dtree( ) can’t use getargs because it 
uses a position-dependent command- 
line switch (—e). So the program’s ar- 
guments are processed by hand in 
doargs( ) on lines 270—332. It works 
pretty much the same as getargs( ) 
does, setting global variables to corre- 
spond to encountered command-line 
switches and compressing argv to re- 
move all command-line switches. 


Note that all argv entries following 
—e on the command line aren't ana- 
lyzed (that’s the test for Args on line 
295; Args is NULL if a —e hasn't been 
found). 

The basic traversal algorithm is 
done by prnt( ) (on lines 174— 232). It 
uses a modified version of the 
preorder tree-printing algorithm that 
I discussed two months ago, so I 
won't cover that material again. 
However, instead of using a basic 
tree-traversal algorithm: 


trav( root ) 
print( root ); 
trav ( left ); 
trav (right ); 


} 


which can be restated for multiway 
tree traversal as: 


trav( root ) 
{ 
print( root ); 
for( each child ) 
trav( child ); 


} 


dtree uses: 


trav( current directory ) 
print( current directory s name ); 
get list of all subdirectories; 
for( each subdirectory ) 
trav( subdirectory ); 


The code on lines 188—192 just 
prints vertical bars in the appropri- 
ate places, provided you're printing a 
picture of the tree (that is, —d is speci- 
fied on the command line, causing 
Draw to be true). If you're searching 
for a file, the if statement on lines 
194—198 is executed. The directory 
name is not printed. Rather, if the file 
exists, you execute the command tail. 
Execute( ) won't do anything if —e 
isn’t found on the command line. If 
you're not looking for a specific file, 
the else clause on lines 199— 203 
prints the current directory name 
and then executes the command tail. 

Prnt( ) gets the list of subdirectories 
using the same dir( ) subroutine 
that’s used by the shell (the code for 
all these routines and for the mydir.h 
file that’s #included on line 4 are in 
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the March 1986 C Chest. Mk_dir( ) 
creates a DIRECTORY structure on line 
205. This structure is initialized on 
lines 211—215 so that dir( ) will get a 
sorted list of subdirectories, using the 
full path name of each directory in 
the list. Dir( ) itself is called on line 
219; the recursive traversal of each 
subdirectory is done by the while 
loop on lines 221—225; and memory 
used by the the DIRECTORY structure 
is freed on line 230 [with the del 


The Wrapping ts 


off the Latest 
Evolution of C 


_dir( ) call]. 

Find( ) (on lines 137—170) uses the 
same directory routines to look for a 
file. It will expand any wildcard 
characters in the file spec and print 
the whole list of matching files. The 
remainder of the code you've al- 
ready seen, either last month or the 
month before, so I won't cover it 
again here. 


Fixing *Z-Terminated Files 

Back in May, Ray Duncan mentioned 
a problem with *Z-terminated files 
being read by the Microsoft Macro 
































TAA Omelet 


Designer C++ is OASYS’ 
full implementation of 
AT&T's enhancements to 
the C lanquage 


FEATURES: 
> Optional strong type checking 


> Overloading of function names 
and operators 


> Optional guaranteed initialization 


of data structures 
& Data abstraction 


> Dynamic typing (virtual functions) 
> Optional user-defined implicit type 


conversion 


The only commercially-available C++ 


customized to operate on PC‘’s, micros, 
minis, and mainframes with popular C 


compilers, including: 


LATTICE GREEN HILLS 
MICROSOFT WIZARD 
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60 Aberdeen Ave., Cambridge, MA 02138 
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e Works with your present 
C Compiler 

e Functions as a Pre- 
processor Translator — 
handles regular C code 
with no changes 

e Type-checking and other 
features are optional — 
you can turn them off 

e Already thousands of 
users at commercial sites 

e Complete documenta- 


tion: C++ A User’s Guide 


by Bjarne Stroustrup of 
AT&T (Addison-Wesley, 
1986) 


We Specialize in: Cross/Native Com- 
pilers: C, Pascal, FORTRAN, Ada, LISP — 
Assemblers/Linkers — Symbolic Debug- 
rs — Simulators — Interpreters — Pro- 
ilers — QA Tools — Design Tools — Comm. 
Tools, — OS Kernels — Editors — VAX & PC 
Attached Processors and more 
WeSupport: 680xx, 80x86, 320xx, 68xx, 


80xx; Clipper, and dozens more 


(617) 491-4180 


Designer C++#1s a trademark of XEL. Inc Adaisa trademark of the U.S. Government (Ada Joint Program Office) 
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Assembler, Version 4.0 (16-Bit Soft- 
ware Toolbox, p.109). The include 
function ignores the end-of-file mark 
(*Z) and uses the file size, so it will 
kick out error messages if you create 
a file with any editor that terminates 
its files with *Zs rather than just mak- 
ing the files the correct length. 
Mince, Vedit, and WordStar (in docu- 
ment mode) are three of these edi- 
tors. You often see this sort of pad- 
ding in programs that were 
originally written for CP/M or MS-DOS, 
Version 1 (where “Z is the only way 
to end a file). Microsoft has been try- 
ing to get rid of the *Z end-of-file 
marker since it introduced Version 2 
of MS-DOS, and I guess it’s finally play- 
ing hardball. 

This *Z problem is responsible for 
a lot of weird behavior on the part of 
the shell, too. The formatted I/O rou- 
tines in Version 3.0 of the Microsoft C 
compiler get hopelessly confused 
when they try to read a *Z-terminat- 
ed file. So if you try to execute a 
Vedit-created batch file from the 
shell, strange things start happening 
(characters mysteriously appear and 
disappear, error messages such as 
“stdout: no room left on device” are 
printed, and so on). 

Unfortunately, the fix that Ray 
gave in his column (enter, write, and 
then exit from EDLIN) doesn't seem to 
work all the time (or so say friends 
who've tried it), and it turns out to be 
almost impossible to fix this problem 
in Microsoft-compiled programs 
without going to unformatted binary 
input (that is, open( ), read( ), and so 
on). So I wrote a utility called fix to 
deal with it (see Listing Two, page 68). 

Fix removes all trailing *Zs from a 
text file (actually it truncates the file 
at the first *Z it finds). Usage is: 


fix file [file .. .] 


where the command line holds a list 
of files to fix. The program renames 
the files specified on the input line to 
xxx.bak, where xxx is the original 
root part of the file name. It then 
overwrites the original file, remov- 
ing the trailing “Zs. 

The program is very short and 
pretty much self-explanatory. Note 
that the ctlc( ) and reargv( ) calls on 
lines 54 and 55 are useful only if 
you're running under the shell and 
they’re supplied along with the shell. 
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written exclusively for C applications 
is also royalty free 


‘“‘db_VISTA™ lets you easily build complex databases with many interconnected record types...” 
Dave Schmitt, President, Lattice, Inc. 


$e 

Designed exclusively for C, db_ VISTA™ 
is a language specific database manage- 
ment system. Both single and multi-user 
versions let you take full advantage of C, 
through ease of use, transportability and 
efficiency. 


ee 


Every Line of Code 
Written in C for C Programmers 


All functions use C conventions so you 
will find db_VISTA easy to learn. db_ VISTA 
operates on most popular computers, and 
because it is written in C it can easily be 
ported to most computers. 


Royalty-Free, You Only Pay Once 


Whether you're developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA is the same. If you are 
currently paying royalties for a com- 
petitor’s database, consider switching to 
db_ VISTA and say goodbye to royalties. To 
help you make the change over to db__ 
VISTA, ASCII file transfer utilities are 
included. dBASE file transfer utilities are 
available as an option. 


More from your database 
applications with source code 


Source code includes all db_ VISTA librar- 
ies and utilities. 
1. Recompile our run-time libraries 
utilizing non-standard compiler options. 
2. Create a debugging library including a 
function traceback by activating pre- 
processor commands embedded in the 
source code. 


Multi-user and LAN capability 


Information often needs to be shared. 
db_ VISTA has multi-user capability and 
supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX and MS-DOS. 


Faster execution 
without data redundancy 


Less data redundancy means reducing 
disk storage requirements and maximiz. 
ing data access performance. A customer 
evaluating a leading competitor's product 
prior to purchasing db_ VISTA bench- 
marked db_VISTA’s retrieval time to be 
276% faster than a leading competitor. 


Complete documentation included 

User manual contains 193 pages, 8 dia- 
grams, 10 tables, appendices, an extensive 
index, plus a database application exam- 
ple. 9 chapters with complete instructions. 


db_ QUERY™ lets you ask more 
of your database 


db__QUERY is a linkable, SQL-based ad 
hoc query and report writing facility. It’s 
also royalty-free. 
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30-Day Money-Back Guarantee 


We wish to give you the opportunity to 
try db_VISTA for 30 days in your develop- 
ment environment and if not satisfied 
return it for a full refund. 


Price Schedule 
db_VISTA db_ QUERY 


Single-user $195 $195 
Single-user with Source $495 $495 
Multi-user $495 $495 


Multi-user with Source $990 $990 


FREE 60 Days Application Development Support 
All software Not Copy Protected 


Call Toll-Free Today! 


To order or for information, call TOLL- 
FREE at 1-800-843-3313, then at the tone 
touch 700-992 or call 206-747-5570. 


VISA and MASTERCARD Accepted 





Database Record and File Sizes 

¢ Maximum record length limited only by 
accessible RAM 

¢ Maximum records per file is 16,777,215 

¢ No limit on number of records or set 
types 

¢ Maximum file size limited only by avail- 
able disk storage 

¢ Maximum of 255 index and data files 


Keys and Sets 

¢ Key length maximum 246 bytes 

¢ No limit on maximum number of key 
fields per record—any or all fields may be 
keys with the option of making each key 
unique or duplicate 

¢ No limit on maximum number of fields 
per record, sets per database, or sort 
fields per set 

¢ No limit on maximum number of mem- 
ber record types per set 


Utilities 
¢ Database definition language processor 
¢ Interactive database access utility 
+ Database consistency check utility 
¢ Database initialization utility 
¢ Multi-user file locks clear utility 
¢ Key file build utility 
¢ Data field alignment check utility 
¢ Database dictionary print utility 
¢ Key file dump utility 
¢ ASCII file import and export utility 
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12201 S.E. Tenth Street 

Bellevue, WA 98005 USA 

(206) 747-5570 

Telex: 9103330300 BCN RIVERTON 
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Read what others say 
about db_ VISTA 


“If you are looking for a sophisticated C 
programmers database, db_ VISTA is it. In 
either a single or multi-user environment, 
db_ VISTA lets you easily build complex 
databases with many interconnected record 
types. The multi-user implementation 
handles data efficiently with a LAN and 
Raima’s customer support and documen- 
tation is excellent. Source code availability 
and a royalty-free run-time is a big plus:’ 

Dave Schmitt, President 
Lattice, Inc. 


“Not ‘yet another user-friendly database’ 

it is a DBMS aimed at the technical C 

programmer instead of the non-technical 
end-user?’ 

Hal Schoolcraft, Data Based Advisor 

arch, 5 


“On the whole, I have found db_ VISTA easy 

to use, very fast with a key find, and 

powerful enough for any DBMS use I can 

imagine on a microcomputer”’ 

Michael Wilson, Computer Lan uage 
September, 1985 


Features 

¢ Multi-user support allows flexibility to 
run on a local area network 

¢ File structure is based on the B-tree 
indexing method and the network data- 
base model 

¢ Run-time size, variable—will run in as 
little as 64K, recommended RAM size is 
256K 

¢ Transaction processing assures multi- 
user database consistency 

¢ File locking support provides read and 
write locks on shared databases 

¢ SQL-based db__ QUERY is linkable 

¢ File transfer utilities included for ASCII, 
dBASE optional 


Operating System & Compiler Support 

¢ Operating system’s MS-DOS, PC-DOS, 
Unix, Xenix, Macintosh and Amiga 

¢ C compiler’s Lattice, Microsoft, DeSmet, 
Aztec, Computer Innovations, Xenix and 
Unix 
Independent Benchmark Results 

Eleven key retrieval tests on sequen- 

tially and randomly created key files. 
Benchmark procedure adapted from 
“Benchmarking Database Systems: A 
Systematic Approach” by Bitton, DeWitt, 
and Turbyfill, December, 1983. 


Total Retrieval Time of 11 Tests 
db_ VISTA 
Leading Competitor 


:671.24 
71,856.43 


1 (800) 843-3313 


at the tone touch 700-992 


—— “VISA. 
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Don’t include these calls if you're us- 


ing COMMAND.COM. 


A Tale of Woe 

My friend Bill Wong, who lives across 
the street, has gallantly volunteered to 
beta test the shell as I bring up the 
new version. He was having prob- 
lems with it the other day, and we 
thought these problems might be DOS- 
related (he’s running Version 3.0 rath- 
er than 3.1), so we decided to upgrade 
the DOS version on his hard disk. Earli- 
er versions of DOS (pre-3.1) made it im- 
possible to create a system disk except 
by formatting the disk with the /s flag 
set (copy won't copy system files). 
This, of course, forced you to back up, 
format, and then restore your entire 
hard disk to install a new version of 
DOS. Version 3.1 comes with a utility 
called sys that can transfer a system to 
a hard disk, but I had forgotten that 
this utility existed. 

So, I tried to install the new DOS ver- 
sion on Bill’s disk by removing the 
hidden and system attributes from 
IBMBIO.COM and IBMDOS.COM and 
then copying them over to the hard 
disk in the normal way. I've a pro- 
gram (called chmod) that can change 
these attributes (attrib can change 
only the read-only attribute). Files 
successfully transferred, I pressed 
Ctl-Alt-Del, and to my horror, the sys- 
tem wouldn't boot. It didn't even 
print an error message—it just hung. 
“Oh God,” I said to myself, ‘I’ve de- 
stroyed Bill's hard disk.” Fortunately, 
things weren't quite that bad. The 
system booted from the floppy with 
no trouble. We could at least get the 
thing running again to try to find out 
what the problem was. 

To make a long story short, we 
fooled around for more than an 
hour, trying everything we could 
think of (including running the sys 
program, now rediscovered by us). 
Nothing worked. No amount of copy- 
ing fixed anything. Changing attri- 
butes didn’t help. Sys said that it had 
transferred the system, but it still 
wouldn't boot from the hard disk. So, 
in desperation we deleted the entire 
root directory (including the system 
files) and tried to run sys again. Now 
it started giving us “No room for sys- 
tem on destination disk’ error mes- 
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two files, and they must be in that 
order (IBMBIO.COM first, with its sec- 
tors in continuous order). So, my 
theory is that when you open a file 
for overwrite, DOS frees up the associ- 
ated FAT entries and directory space. 
That is, it doesn’t just overwrite an 





sages. The disk was only two-thirds 
full, so there was obviously some 


other problem. 


Finally I threw in the towel and de- 


cided to call Microsoft. It told me that 
it does not support end-users of DOS 
and that I'd have to call IBM. IBM told 
me that it does not support end-users 
of DOS and that I'd have to call the 
store that sold me the computer. 
ComputerLand told me that it had no 
idea what the problem was, though it 
could guess. The person I talked to 


suggested reading the DOS Technical 
Reference. So, it seems there is no 
technical support available for MS- 
bos—from anyone. 


I dug out the Technical Reference 


and actually did find something 
there. It was even in the index (under 
system reset). When MS-DOS boots: 


“The boot record then checks the 


root directory to assure that the first 
two files are IBMBIO.COM and IBMDOS 


COM. These two files must be the first 


existing file with new data; it throws 
away the existing file and then starts 
from scratch, putting the copy wher- 
ever it feels like. So the two boot files 
ended up in the wrong place. Mean- 
while all our thrashing around on 
the disk ended up putting something 
into the sectors that IBMBIO.COM 
wanted to occupy. This explains sys’ 
inappropriate error message. There's 
plenty of room on the disk, but 
there’s probably no room on track 0. I 
still don’t understand why sys told us 
that the system had been transferred 
successfully the first few times we 
tried to use it. I suspect this has some- 
thing to do with directory entries for 
IBMBIO.COM and IBMDOS.COM already 
existing but pointing at the wrong 
place on the disk. It seems to me that 
sys should check for things such as 
that. It obviously doesn’t. I also don't 
understand, if the positions of IBM- 
BIO.COM and IBMDOS.COM on the disk 
are so important, why you can delete 
them at all. To my mind they 
shouldn’t even be in the directory 
system because you can't treat them 
like you can any other file. 

I’m sure there’s a lesson to be 









learned from all this, but I’m not sure 
what it is. Your only recourse is to 
back up, reformat the hard disk, and 
restore. Looked at in a truly Polyanna 
fashion, at least disk accesses will 
speed up because all the file frag- 
mentation will be eliminated. 

To add injury to insult, bringing up 
Version 3.1 didn’t fix the problem 
with the shell (which turned out to be 
the *Z problem that I described earli- 
er). Aren't computers wonderful? 


Availability 

The listings from this month are all 
available on CompuServe (type go 
ddj). The chmod program, used to 
change file attributes, is now distrib- 
uted by DDJ as part of Version 1.1 of 
the /util package. This package also 
includes the rm and cp utilities used 
in the examples. If you have an earli- 
er version, you can get an upgrade 
from DDJ for $6. The fix program is 
distributed with Version 2.0 of the 
shell (available from DDJ, upgrades 
are $6, too) and is also available on 
CompuServe. The directory-related 
routines used by dtree.c are also part 
of the shell. They were originally 
published in this column in March 
1986 (the listing begins on page 56 of 
that issue). Note that the mydir.h file 
on the shell distribution disk is called 
dir.h in that listing. 

An IBM PC-compatible disk contain- 
ing the complete sources for dtree.c 
and fix.c (including the directory rou- 
tines) is available for $25 from Soft- 
ware Engineering Consultants, P.O. 
Box 5679, Berkeley, CA 94705. 


DDJ 


(Listings begin on page 62.) 
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hardware while mini- 
mizing your outlay for 
new equipment. 

That’s because 
OpenNET adheres very 
rigidly to some very 
flexible standards. 
Standards like Ethernet/ 
IEEE 802.3. And the 
ISO message delivery and 
Intel/IBM/Microsoft® 
Network File Access 
protocols. 

All of which means 
existing development 
hosts, languages and 
tools, including ICE, are 
instantly compatible 
with the latest ones. So 
you can avoid obso- 
leting one set of tools 
just to use another. 

We'll even take full 
responsibility for servic- 
ing and supporting 
your network. Anywhere 
in the world. 

Sound like we've got 
things together? Then 
call us at (800) 548-4725, 

Ask to meet with one 
of our experienced net- 
work engineers. We'll 
see you make all the 
right connections. 


Intel 
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Curve Fitting with 
Cubic Splines 





by lan E. Ashdown 


efore com- |__ 
B puter-aided | | 
drafting | 


workstations com- | 
pletely replace the | 
draftsman’s pencil 
and paper, let's exam- 
ine one of the drafts- 

man’s. tools: the —_— 

spline. Presented with data in the form of points on an 
x—y plane, the draftsman uses a spline—a flexible strip of 
metal or plastic—to draw a smooth curve between them. 

The technique is very simple. After plotting the data on 
a sheet of paper, an appropriately sized spline is held in 
place at these points (referred to as “knots’) with weights 
or pins. The draftsman then traces the curve formed by 
the spline. For any given set of knots, the curve generated 
is independent of the spline chosen and is thus exactly 
reproducible. 

From mechanical engineering, elementary beam the- 
ory shows that if the spline is not too severely stressed, it 
will conform to a curve described by a set of cubic poly- 
nomial equations, one between each pair of adjacent 
knots. Adjacent polynomials meet at their common end- 
points (the knots), and their slopes and rates of curvature 
at these points are equal. Stated in mathematical terms, 
these polynomials join continuously at the knots with 
continuous first and second derivatives. 

Knowing this, you can develop a mathematical model 
of the draftsman’s splines and from this model construct 
a computer program for interpolating a smooth curve 
between a set of knots. With a bit of care in choosing 
algorithms, such a program can quickly and accurately 
generate a curve for a thousand or more data points on 
the smallest of personal computers. It can even be adapt- 
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The program can generate a curve 
for a thousand or more data 
- points. 





ed to interpolate a 
smooth surface be- 
tween points plotted 
in three dimensions. 

Developing the 
model involves basic 
calculus and matrix 
theory. If you are un- 
familiar with such 
mathematics, rest assured that the resultant algorithms 
are very easy to program and using a cubic spline pro- 
gram requires no understanding of the underlying math- 
ematical theory. Give the program a set of knots, and it 
will dutifully interpolate a smooth curve in all (well, al- 
most) cases. 

Why then discuss the mathematics of cubic splines at 
all? There are two answers. One is that seeing how the 
algorithms are developed gives you the confidence to use 
them. The other is that there may be cases in which the 
algorithms will not perform exactly as desired. Knowing 
their theory may enable you to create a modified algo- 
rithm to fit the problem at hand. 


A Simple Explanation 

Some of the math involved in spline calculations may bea 
bit daunting if you haven't had training in calculus and 
matrix mathematics. For those who want to get the gist of 
it without getting tangled up in equations, here’s a short 
summary. 

Because a spline is really nothing more than the graphs 
of a set of contiguous (endpoint-adjacent) cubic equations, 
all you need to know to draw it are the parameters of 
each of the equations. Naturally, there will be one such 
equation for each segment of the spline. 

Because you know that the endpoints of each segment 
will coincide with the endpoints of the adjacent ones, and 
you know that the slopes of both curves will be the same 
at the joining points, it is possible to derive the equations 
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of the segment curves because, for any set of two points 
and two slopes, there is one and only one cubic curve 
segment that passes through the two points with the giv- 
en slopes. Because each segment of the spline shares the 
same slope at its endpoints as its neighbors, you know 
that its first derivative (slope) will be the same at that 
point. Because the curves are the graphs of cubic polyno- 
mials, you know their second derivatives (change in 
slope) will be straight lines. Because (from the definition 
of the spline curve) the slope changes smoothly over the 
length of the curve, you know that the graph of the sec- 
ond derivatives of the spline equations will consist of a 
series of straight lines joined together at their endpoints. 


A Rigorous Explanation 

Beginning in this section, the math will get quite involved. 
If you're not into heavy math, you might want to skip 
down to the sections on the actual algorithms or you might 
want to skim through the math sections. It’s not necessary 
to have a full understanding of the math in order to make 
the spline program work properly, but it helps. 

Starting with a set of data points (the knots) stated as 
ordered horizontal coordinates x{i] (i = 1,...,n) and cor- 
responding vertical coordinates yli], define the curve-to- 
be as the composite function: 


y(x) = flil(x) for x[i] <=x< xlit+1];i=1,...,.n—2; 
and x[n—1] <= x <= x[n] 


where each function flil(x) is a cubic polynomial of the 
form: 


flix) = ax3 + bx? ++ ex+d 


where a, b, c, and d are constants. In other words, y(x) is 
really a set of functions, each of which is defined over an 
interval between two adjacent knots at (x[iJ, yli]) and 
(xlit 1], ylit+1)). 
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Furthermore, let’s define y’[i] and y li] as the first and 
second derivatives of y(x) at x = x{i]. Knowing that the set 
of functions f[i)(x) must join at their endpoints (the knots 
of the spline) and also that their first and second deriva- 
tives are continuous at these points, you have the follow- 
ing continuity conditions: 


flilxti) = ylil i=1,...n-1 
fli—11xli)) = yli] i=2,....n 

f'li—1\xli) = FLixfi) i=2,....n-1 
f’ti—1xli) = fEixfi) i=2,...m-1 


Because each function flil(x) is a cubic polynomial, it 
follows that its second derivative is a linear function (a 
straight line) between its endpoints. If you define: 

h{i] = x{i+1) — xi] 
then linear interpolation gives you: 


y’ Til * (xfi+4) — x) + yi+4]* (x — xfiy 
h{i] 


f’ [i(x) = 


Integrating this equation twice and selecting the con- 
stants of integration such that the continuity conditions 
are Satisfied, you can derive the interpolation equation 
shown in Table 1, page 26. 

Remember this equation—you'll use it later to interpo- 
late the curve defined by y(x) between the given knots. 
But first you need to calculate the unknown coefficients 
y li] for alli between 1 and n. 

Differentiating and evaluating the interpolation equa- 
tion for x[i] yields: 


flix) = YetU—- yi _hl , 


(2* yi) + y"li+4) 
hf] 
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(continued from page 25) 
and 
fio — YL +11 — 9 i («= xfil) _ 
i : 
rity = Le ds yi—a+ 2*y WD 
na a hfi—1] 6 
i 
Yr. yt Of) 3) _ 
i. Because the first derivatives of the functions at their 
endpoints are continuous, these two equations are equiv- 
x{it 1]—x_ x here (x—x{i])) alent. You can rearrange the terms of their right-hand 
a yer h[i] sides to get: 


h{i—1]* y’ti—1] + 2* (h{i—1] + hifi) * yi) + hu Pyare) 


x—x{i] ; 
hfi] ) ) ) es = + il yl —ya—T) ) 


hi) h{i—1] 





for i= 2,...,n—1. 
Expressed in matrix form, the above equations show an 


Table 1: Interpolation equation 








h{1] c[2] h[2] 0 0 0 y’ [1] = d[2] 
0 h[2] c[3] h[3] 0 0 y’ [2] d{3] 
0 0 h[3] [4] h[4] 0 y’ [3] d[4] 
0 0 0 h[4] cf5] h[5] y’ [4] [5] 






where 







cfi] = 2 * (h{i—1] + hfi)) 


d[i] = 6* yli+1] — yfi) _ yfi) — yli-1] 
Afi] hfi—1] 


Table 2: f [i]( X [i]) and f [i—1]( X [i)) expressed in matrix form for n=6 








2] hy,SstiO 2» 0 y'[2] = d[2] 
Mel eet ,i(is OO 0 y"[3] d[3] 
0 h3] cf] 0 0 y"[4] d[4] 
nah ae i y"[n—2] d[n—2] 
0 0 0 hin—2] cin—1] yin-1] dijn—1] 





where 
c[2] = (2 + ) hi] + 2 * hfe] 


cfi] = 2*(h{i—1] + hfi) fori=3,..., n-2 
c[n—1] = 2*h[n—2] + (2 + k)* h{n—1] 


gcc we et = 9. n—1 
Ali] hfi—1] 







Table 3: Matrix form of nonperiodic spline function 
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interesting diagonal symmetry that you can take good 
advantage of later. Using n = 6 as an example, they look 
like those shown in Table 2, page 26. 


A Variety of End Conditions 
So far, you have n unknowns y’ i] but only n—2 condi- 
tions as expressed by the above equations. Two more con- 
ditions are required to obtain a unique solution for your 
curve y(x). Several variations are possible; I'll look at two 
of the more useful ones here. 

The first is to specify that: 


y (11) =j* y’T2] 
and 
y (n] = k* y’In—1] 


where j and k are arbitrary constants. With a bit of matrix 
manipulation, you get the equations shown in Table 3, 
page 26. 

If the values of j and k are zero, you have y (11) = y’[n) 
= 0. This is equivalent to a spline whose ends are not 
constrained beyond the end knots and is known as the 
“natural” cubic spline. A nonzero value for j or k is equiv- 
alent to bending an end of the draftsman’s spline and will 
affect all of the interior cubic polynomial functions. The 
effect on the interior polynomials, however, rapidly de- 
creases as you move away from the endpoints. 

For some sets of knots, a nonzero value of jor k will 
result in a smoother interpolating curve at its correspond- 
ing end. A value of 0.5 is often appropriate. Be fore- 
warned, however, that for some negative values the 
curve will be discontinuous. As it approaches these val- 
ues, the end of the curve begins to oscillate, the peaks 
becoming larger and larger until they reach infinity at 
the exact values. 

The above set of linear equations can be solved using 
Gaussian elimination. You must be careful, however. In 


/* Reduce matrix to upper triangular form */ 


fori = 2toi = n—2 
begin 
clit 1] = cfi+1] — hiij* hfi}/cfi] 
d{i+1] = dfi+1] — dfi]* hfi}/cfi] 
end 


/* Solve using back substitution */ 


y [n—1] = d[n—1}/c[n—1] 
fori = n—2toi = 2 
begin 
y Li] = (ofi] — hfi] * y’ [i+ 1)/cfi] 


end 





Table 4: Algorithm 1: Nonperiodic spline coefficient 
determination 
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CUBIC SPLINES 
(continued from page 27) 





its most general form, this method can require prodigious 
amounts of memory and millions of floating-point com- 
putations. Given 1,000 unknowns, Gaussian elimination 
needs storage for more than 1 million floating-point num- 
bers and performs some 334 million multiplications and 
divisions! The loss of accuracy because of so many calcu- 
lations can render the results meaningless. 

Fortunately, the coefficient matrix described here is 
very sparse and symmetrical. The nonzero elements can 
be stored in a few linear arrays and the remainder ig- 
nored. By observing how Gaussian elimination solves the 
equations, you can modify the method to eliminate oper- 
ations involving multiplication by and addition of zero. 
The result is Algorithm 1 (Table 4, page 27), which has 
very reasonable memory requirements and execution 
times—a cubic spline problem with 1,000 knots can be 
solved quickly on most personal computers, even those 
with less than 64K of memory! 

In practice, array y’[ ] would be used initially to store 
the elements of array d[{ J. Then, as the elements of y’| ] 
are solved during back substitution, they overlay the val- 
ues of d[ J. To implement this space-saving technique in 
Algorithm 1, change every instance of d[ ]to y’T |}. 

The second variation is more interesting and comes 
from the need to interpolate data extracted from periodic 
phenomena. If you plot any periodic data in polar coordi- 
nates, a smooth curve between them forms a closed curve, 
with the endpoints of the curve meeting. Plotting the same 
data in rectilinear coordinates with the horizontal coordi- 
nates expressed over 360 degrees, it's easy to see that you 
can model the curve with a cubic spline function. 

Because the curve is periodic, the endpoint vertical co- 
ordinates are by definition equal. In other words, yi1J = 















where 


cfi] = 2*(hfi—1] + hii) fori=2,....9—1 
c[n] = 2* (h[1] + h[n—1]) 


hfi] 


din} = 6* (~ “yt ye =) 
h[1] h[n—1] 


hfi—1] 


Table 5: Matrix form of periodic spline function 
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c[2] h[2] 0 8 h{1] y’ [2] = d[2] 
h{2] c[3] h[3] 38 0 y’ [3] [3] _ 
0 h[3] c[4] ee. 0 y'14] d[4] 
5 8 hin—2] c{n—1] h{n—4] y"[n—1] din—1] 
h[1] 0 Oo h{n—1]  c{n] y’[n] d[n] 


d{i] — 6° (a ae bio Ss 


y[n]. You need to specify the end conditions such that the 
first and second derivatives of the curve are continuous 
with respect to each other at these points. Stated in math- 
ematical terms, y [1] = y'[n]and y’[1) = y Ini. 

The second derivatives are easy—they can be ex- 
pressed directly in matrix form. To use the first deriva- 
tives of y(x) at the endpoints, you need an equation that 
relates them to y(x) and its second derivative. Going back 
to the derivations for f’[il(x[i)) and f’[i—1)(xli) and evaluat- 
ing them for x[1] and x{n] respectively, you have: 


_ yl2i— yl] _ hii) 


f’[1)(x{1)) Sdn AZ Py A A VD 
Mine Bee 
and 
f'{n—1)\(x{n)= vial Yin ae *(y’[n—1)+2*y’{n) 


h{n—1] 6 


But y [1] = yn], so: 


6* (= — yl1)_ yin) — yin- 1 ) a 
h{1] h{n—1] 


hin—1} (y"In—1+2*y"in) + hlar2ty’(a)+-y"(2) 


Again with some matrix manipulation, you get the equa- 
tions shown in Table 5, below. These equations can be 
solved efficiently and quickly with another modified ver- 
sion of Gaussian elimination, as shown in Table 6, page 30. 

Other end conditions are possible. You can, for exam- 
ple, specify the slope of the spline at its endpoints by 
specifying the first derivatives at yl1] and y[n]. You can 
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CUBIC SPLINES 
(continued from page 28) 


y’li+1) to use in solving for the corresponding y coordinate. 

What about the related problem of fitting a smooth sur- 
face to data plotted in three dimensions? If the data is regu- 
larly spaced in two of those dimensions (say the x —y plane), 
you can calculate a family of curves in parallel x—z planes. 
Each curve is the intersection of the x—z plane with the 
surface. Then, for any perpendicular y—z plane, your 
knots are the intersection of the x—z plane curves with the 
y—z plane. From these, you can calculate the intersection 
of your surface with the y—z plane. With this method, you 
can determine any point on the surface uniquely. 


















also specify a linear combination of first and second de- 
rivatives at the endpoints. The two examples presented 
here, however, will generally prove the most useful for 
interpolative curve fitting. 

Specifying the end conditions and solving the appropri- 
ate set of linear equations gives you the coefficients you 
need to solve your interpolation equation. (Note that this 
equation remains the same no matter what end conditions 
have been specified.) For any given value of x within the 
range of values spanned by the knots, you need only deter- 
mine the two knots between which the value lies. This 
gives you the value of i to insert in the interpolation equa- 
tion and with it the appropriate coefficients y’[i] and 


Final Words 

I could have demonstrated the above algorithms using a 
small BASIC program; however, the Unix operating sys- 
tem offers a utility called spline that is much more com- 
prehensive. Heeding once again Richard Stallman’s call 
(‘The GNU Manifesto,” DDJ, March 1985) for placing Unix 
in the public domain (‘FGREP,”” DDJ, September 1985, was 
my previous response), the accompanying ‘“‘demonstra- 


/* Initialize array e[ ] as nth column of matrix M[ ][ ] */ 






























e[2] = h{1] tion” program (SPLINE.C) is a full emulation of the Unix 
fori = 3toi=n-—2 spline utility. (See Listing One, page 72.) 

begin If you would rather not spend an evening or two enter- 

e[i] = 0 ing and (inevitably) debugging SPLINE.C, you can purchase 

end : machine-readable versions for $35 from byHeart Soft- 

e[n—1] = h[n—1] ware, 620 Ballantree Rd., West Vancouver, BC V7S 1W3, 

e[n] = c[n] Canada. Supported disk formats are CP/M 8-inch SSsD and 


MS-DOS (2.x) 514-inch DSDD. Included on the disk are the 
source code in C for SPLINE.C and FGREP.C, their execut- 
able programs, and the text from this article and ‘Parallel 
Pattern Matching and FGREP”’ (DDJ, September 1985). 

Cubic splines are an elegant solution to the problem of 
fitting curves to a set of given points in an x—~y plane. An 
understanding of the mathematics used to develop them 
is not essential. The simplicity and efficiency of the algo- 
rithms involved should encourage anyone interested in 
graphics or data analysis to add cubic splines to their soft- 
ware toolboxes. 


/* Initialize variable f as matrix element M[n][1] */ 
f = h{1] 
/* Reduce matrix to upper triangular form */ 


fori = 2toi=n-—2 
begin 
cfit+1] = c{it+1] — hfi] * hfil/cfi] 
d{it+1] = dfi+1] — dfi] * hfij/cfi) 
efit1] = efit+1] — efi] * hfil/cfi] 
d[n] = d[n] — d{i] * f/cfi] 
e([n] = e[n] — efi] * f/ci] 
f = —f*hlil/c[i] /* Now matrix element M[n][i] */ 
end : 
f=f+h{[n—1] /* Now matrix element M[n][n—1] a 
d[n] = d[n] — d[n—1] * f/c[n—1] 
e{n] = e[n}] — e[n—1] * f/c[n—1] 
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/* Solve using back substitution */ 






y’[n] = d[nj/e[n] 
y’[n—1] = (d[n—1] — e(n—1] * y"[n)/e[n—1] 
fori = n—2toi=2 
begin 
y’ [i] = (afi) — fi] * y"fi+1) — efi] * y’in)/eti) 


end 


DDJ 


Listing begi 72. 
y’[1] = y’[n]_ /* End condition */ (Listing begins on page ) 


Vote for your favorite feature/article. 
Circle Reader Service No. 2. 


Table 6: Algorithm 2: Periodic spline coefficient 
determination 
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NOSECRETS 


Turbo POWER TOOLS PLUS is crafted so 
that the source is efficient, readable and 
easy to modify. We don’t keep secrets! We 
tell you exactly how windows are managed, 
how interrupt service routines can be writ- 
ten in Turbo Pascal, and how to write mem- 
ory resident programs that can even access 
the disk. Maybe you’ve heard of some un- 
documented DOS features that resident 
programs use to weave their magic. Turbo 
POWER TOOLS PLUS documents these 
features and lets you make your own magic! 


Here’s just part of the PLUS 
in Turbo POWER TOOLS PLUS: 


WINDOWS that are stackable, re- 
movable, with optional borders anda 
cursor memory. 

FAST DIRECT VIDEO ACCESS for 
efficiency. 

SCREEN HANDLING including 
multiple monitor and EGA 43-line 
support. 


POP-UP MENUS which are flexible, 
efficient and easy to use, giving your 
applications that polished look. 


INTERRUPT SERVICE ROUTINES 
that can be written in Turbo Pascal 
without the need for assembly lan- 
guage or inline code. 





Power Tools Plus’ 


Window Routines. 
neteivoranne Memory Resident Routines. 


Routinely. 


INTERVENTION CODE lets you de- 
velop memory resident applications 
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capabilities. With simple procedure 
calls, you can ‘“‘schedule”’ a Turbo 
Pascal procedure to execute either 
when a “hot key” is pressed, or at a 
specified time. 

PROGRAM CONTROL ROUTINES 
allow you to run other programs from 
Turbo Pascal, and even execute DOS 
commands. 


MEMORY MANAGEMENT allows 
you to monitor, allocate and free DOS- 
controlled memory. 


DIRECTORY AND FILE HAN.- 
DLING support to let you take advan- 
tage of the newer features of DOS 
including networking. 


...one package stands out as 
the best support available for Turbo 
Pascal programmers: Blaise Com- 
puting’s Turbo Power Tools. This 
definitive set of prewritten Pascal 
functions and procedures will 
make the life of any programmer— 
from the beginner to the hard-core 
professional—easier and more 
productive. 


have distinguished 
Blaise Computing 
over the years. 


Turbo POWER 
TOOLS PLUS sup- 
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Version 2.0 and 
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$99.95. 
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file-transfer protocol and support for Haves 
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are all written in Turbo Pascal in the same 
style and format as Turbo POWER TOOLS 
PLUS. All source code 4y is included for just 
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Sorting Algorithm 


ost widely used sorting al- 
Mi gorithms, such as the Shell 
sort and quicksort, require 


a sorting time approximately propor- 
tional to nlogzn, where n is the num- 
ber of sort keys, whereas the bubble 
sort requires a time proportional to 
n2. Often it is stated erroneously that 
it has been proved that no sorting al- 
gorithm can improve on an nloggn 
time. The proof refers only to algo- 
rithms based on exchanges, howev- 
er, as Knuth states clearly in volume 3 
of his series The Art of Computer 
Programming. 

There is a sort algorithm called the 
radix sort that is not based on ex- 
changes. This sort has been known 
and used since long before the time 
of electronic computers and was gen- 
erally used for sorting punched 
cards, but it does not seem to have 
been widely adapted for computer 
use. The time required to do such a 
sort is proportional to n. 

In seeking a reason for the slighting 
of this algorithm, which I have used 
successfully on a variety of comput- 
ers for about 20 years, I have come to 
the following conclusion. There must 
be an intuitive feeling on the part of 
programmers that, whereas sorts re- 
quiring time k,n will always be faster 
than those requiring k2n logzn when 
the value of n is sufficiently great 
(where k, and kz are arbitrary con- 
stants), for practical values of n that 
fit into a computer’s RAM, k, is suffi- 
ciently greater than k, to nullify the 
advantage. As I will demonstrate, this 
assumption is invalid in many Cases. 





Robert A. MclIvor, 3100 Carling Ave., 
Apt. 920, Nepean, ON K2B 6J6, Canada 
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by Robert A. Mclvor 


This linear-time sort 
was once used on 
punched cards. 





How the Radix Sort Works 
The basis of the radix sort algorithm 
is to divide the sort keys into two lists, 
with their placement in a list being 
dependent on whether the least sig- 
nificant bit is set or not. The two lists 
are then concatenated with the list in 
which the bit is not set placed first. 
This step is repeated for each bit in 
each sort key, working from the least 
significant end to the most significant 
end. When this procedure is com- 
plete, the file is sorted. 

The chief disadvantage of this 
method when compared to exchange 
sorts is that the time required for com- 
pletion has the same dependence on 
the number of bytes in the key as it 
does for the number of keys—that is, 
it takes the same time to sort 10,000 1- 
byte records and 1,000 10-byte re- 
cords. Exchange sorts, on the other 
hand, are much less dependent on 
key length than on the number of 
keys because it is usually unnecessary 
to compare every byte in two keys to 
determine which is the greater. 

Another possible disadvantage of 
the algorithm as presented here (a 
sort algorithm for linked lists) is the 
additional space overhead required. 
Each key must have an additional 
2—4 bytes allotted for a pointer ad- 
dress. Although this is perhaps un- 
reasonable for 1-byte sort keys, the 





disadvantage becomes less and less 
significant with longer sort keys. Fur- 
thermore, if the data to be sorted is 
already in a linked list, no additional 
space is required. For sorts in which 
keys must be extracted from a record 
and manipulated to perform special 
sorts, such as sorting signed numbers, 
sorting in reverse order, or sorting in 
a special collation order, forming a 
linked list of the sort keys does not 
usually entail much additional effort. 


The Test Programs 

Listing One, page 86, is the radix sort 
as coded for the Macintosh in Aztec C. 
The include files are needed to pro- 
vide the definitions of Random( ) and 
TickCount( ) used in the timing rou- 
tine. The routine MaxApplZone( ) 
provides space in the application 
heap for the sort keys. It must be 
called before anything else, and the 
Imalloc must be given a noncalculat- 
ed number or the exit branch of in- 
sufficient space is taken. Also, the call 
seems to be required in the routine in 
which the allocation occurs. RAM 
disks and cache programs for the 
Macintosh may have adjusted the ap- 
plication heap, leaving no space for 
allocation. Allocation is necessary for 
record counts in the thousands be- 
cause the space permitted for data 
declared in the program is limited. 
KEYSIZ (the size of the sort key) is de- 
clared at compile time to avoid edit- 
ing for each change. 

The sort program is passed the key 
size and the pointer to the first re- 
cord. Two additional pointers (first 
and last) follow the two lists created 
at each pass, whose heads are given 
by the pointers start and start2. The 
pointer temp follows the combined 
list during each pass. Each bit from 
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Number . _ | 
of Records | : | Bytes in Key 
: 7 8 

1000 2 42tiCi 149 
2000 . | 5 223 #8260 297 
3000 | 390 446 
4000 520 594 
5000 | : 650 743 
6000 } 2 4 780 ~— 892 
7000 3 | 910 

— 8000 296 - 1040 1189 
9000 3 ) 1170 1337 

10000 | 1300 

Times are in 60ths of a second. 


Number — 
of Records _ ss Bytes in Key 
: : 7 8 

1000 | : 205 229 
2000 : 502 515 
3000 822 848 
4000 | 1185 1255 
5000 — 1549 1630 
6000 1936 1942 
7000 2471 2437 
8000 2975. 3087 
9000 3057 3270 

10000 3845 4270 









Key Count _ _ ‘Sort Key Length in Bytes  . : 
1 2 3 4 #5 6 7 Fs 
1000 : 26.7 30.3 33.2 34.6 37.2 39.8 425 460 475 48.1 











54 10.8 16.2 216 270 32.4 378 432 486 540 
2000 60.7 68.2 81.2 85.4 Sta A010 «§861050 «61180 = 1186) ina 
10.8 21.6 32.4 43.2 54.0 64.8 (SS 264 G2 80 
“— vel (see _ Cs 
4000 138.0 . 188.0  . |  —eB 
21.6 43.2 






















5000 188.0 267.0 
270 = 540 
6000 239.0 
~_ ic a lr 
37.8 — 
8000 328.0 
43.2 
9000 406.0 
48.6 
10000 438.0 
54.0 
11000 459.0 
59.4 (calculated) 
12000 535.0 








64.8 (calculated) 





Top value is for shell. Bottom value is for radix. 


Table 3: Comparative sort time in seconds for Shell sort and radix sort on Z80 
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SORTING ALGORITHM 
(continued from page 32) 





least to most significant is isolated in 
turn, and the byte is added to the first 
and last lists depending on whether it 
is 0 or 1. When the end of the temp list 
is reached, the last list is terminated 
with a 0 pointer, and the last member 
of the first list is pointed to the head 
of the /Jast list (start2). When all bits 
have been traversed, the pointer 
start, which points to the head of the 
sorted list, is returned. In addition, 
checks are made for empty lists, and 
the appropriate action is taken. 

I compared the radix sort algorithm 
times with those obtained from the 
Shell sort algorithm given on page 116 
of The C Programming Language by 
Kernighan and Ritchie. I’ve provided 
a listing of my version of the Shell sort 
for comparison (Listing Two, page 87). 
The initialization, of course, is differ- 
ent for the Macintosh. 


Some Test Results 
In both the radix and the Shell sorts, a 
random function was used to pro- 


vide data for sorting. The times for 
the radix sort, unlike those for the 
Shell sort, are data independent. Ta- 
bles 1 and 2, page 33, show the sort 
times for the radix and Shell sorts on 
a 512K Macintosh. 

I also programmed the algorithms 
in BDS C for a Z80 computer running 
at 2 MHz. In both cases the radix sort 
is superior for sort keys shorter than 
12 bytes when the number of records 
exceeds 1,000. For 10,000 1-byte re- 
cords, the radix sort is more than 
nine times faster. The crossover point 
for 12-byte keys occurs at approxi- 
mately 500 records, and for keys of 7 
bytes or less, the crossover is at 100 or 
fewer records. Table 3, page 33, 
shows the results for the Z80 system. 

The execution time of the radix 
sort for the Z80 system can be ex- 
pressed by the formula (5.4 x 10~-3)mn 
seconds, where m is the number of 
bytes in the sort key and n the num- 
ber of keys to be sorted. The Macin- 
tosh execution time was 
(3.11X%10-4smn seconds—more than 
17 times faster. The ratio of times for 
the Shell sort was similar. 


The radix sort algorithm was also 
coded in Z80 assembly language. The 
run times are approximately six 
times faster—the measured time for 
the radix sort was (9.1X10~4)mn sec- 
onds at 2 MHz. 

You might think that by masking 
two bits at a time and dividing the 
keys into four lists, an additional time 
savings of about 50 percent would be 
achieved. In fact, the saving is only 
about 17 percent because of the in- 
creased overhead in the inner loop. 


Bibliography 

Kernighan, Brian W., and Dennis M. 
Ritchie. The C Programming Lan- 
guage. Englewood Cliffs, N.J.: Pren- 
tice-Hall, 1978. 

Knuth, Donald. The Art of Computer 
Programming, Volume 3. Sorting and 
Searching. Reading, Mass.: Addison- 
Wesley, 1969. 


DDJ 


(Listings begin on page 86.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 3. 






Windows for Data does the hard jobs 
that others cant — we guarantee it. 
Makes standard display and entry tasks 
easy. Reliable. Compact. Portable. 


DATA ENTRY: The most complete and 
flexible data entry system on the market. 
Pop-up data-entry windows; field types for 
all C data types, plus decimals, dates, and 
times; auto conversion to and from strings 
for all field types; system and user-supplied 
validation functions; range-checking; 
scrollable context-sensitive help; required 
and must-fill fields; programmer-definable 
edit keys, field types, and field masks. Read 
field by field or auto-read all fields. Branch 
and nest window forms. Virtually every 
capability of WFD can be modified 
to meet special needs. 


WINDOWS: WED is built upon and in- 
cludes Windows for C, the windowing 
system rated #1 in PC Tech Journal 
(William Hunt, July 1985). WFC now has 
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matic full compatibility with Microsoft 
Windows and TopView. 
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WINDOWS FOR DATA” 
WINDOWS MENUS HELP 


UNPRECEDENTED FLEXIBILITY 






As many possibilities as Vermont in June. 


MENUS: Build multi-level menus in the 
format of Lotus 1-2-3, Macintosh, or a style 
of your own choosing. 


HELP: Build context-sensitive or menu- 
driven help systems. Display text in pop-up, 
scrollable windows. 
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UNIX, DOS, OR BOTH 


WEC and WED provide source code com- 
patibility between PCDOS and UNIX. 
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If you have an application where no 
other tool can do the job, try Windows 
for Data. If it doesn’t help you solve 
your problem, RETURN FOR A FULL 
REFUND. YOU MUST BE SATISFIED. 
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TURBO 


Ney My 


SCREEN/APPLICATION GENERATOR > 


Give your application a Turbo Boost with the Most Advanced Turbo Pascal Environment 


Available. Have Turbo Master generate your screen, 


For $99.95 


TURBO ISAM MASTER 

Generates ‘Ready to Run’ Turbo Programs Us- 

ing BORLAND’S Turbo Pascais Database 

TOOLBOX or optional SOFTCRAFT’S 

BTRIEVE. 

With a few key strokes you can generate the 

following Pascal Pprograms/includes files. 
Automatically interfaces to Turbo Screen 
Master. 
e MASTER DATABASE PROGRAM - Generates 
Pascal Program Code for the following functions 
—Add a Record - Allows both duplicate & 
unique only keys. Change the up to 48 fields 
comprising the primary key and the up to 7 
secondary keys at any time during input, and 
the validity of the keys are checked and the 
ISAM key files are automatically adjusted. 

—Delete a Record - Shows the record to be 
deleted on the screen and allows you to 
change your mind about deleting, and then 
adjusts the keys files automatically for the up 
to 8 keys. The disk space is reused 
automatically by the programs. 

—Edit a Record - with a key change allowed. 

—Search Database by Key - The ability to 
display the keys on the screen or printer in 
sorted order. 

¢ DATA BASE RECOVERY PROGRAM. This 
program recovers your database if it corrupted 
by a power outage or certain hardware failures. 

e MULTIPLE ISAM FILES - Can be used at the 

same time in a single program. The generator 

also produces context sensitive instructions on 
how to integrate the generated program into 
your main program. 

DOCUMENTATION - Print screens and ISAM 

specifications. Also inline program documenta- 

tion is generated. 


TURBO MENU MASTER 

GENERATES ‘Ready to Run’ Turbo Programs 

with Dedicated Screens or Windows. 

FEATURES: Has Menu Data Base so it's easy 

to modify menus. 

PROVIDES SELECTION BY: 

—Press of a number 

—Press of a function key 

—Press the high lighted letter 

—Use the arrow keys 

ADAPTIVE SCREEN COLORS — Different 

screen colors are automatically used for color or 

monochrome display. This allows you to provide 

a better interface for the user. 

INTERACTIVE MENU BUILDER 

—Allows for the automatic entry and reorder of 
selections 

—Offers easy color selection 

—Allows for choice of Procedure, chain, ex- 
ecute or comment code generation for each 
selection 

—Has startup Menu that YOU design. 

—Provides for the integrated Display and con- 
trol of the Key Lock Status. 


URBO RESIDENT SCREEN CAPTURE 
hich allows you to Capture Text 
creens from any running Program. 


file handling and menu Programs. 


receive 6 Floppy Disks & Manual. 


TURBO SCREEN MASTER 


GENERATES ‘Ready to Run’ Mulit-screen pro- 

grams with advanced field definition. 

e USER SPECIFIED PROCEDURES can be cail- 
ed before and after data entry for each field. 
This allows SCREEN GENERATION THAT IS 
INDEPENDENT OF USER INSERTED PRO- 
GRAM STATEMENTS. 

e YOU CAN CUSTOM PROGRAM special field 
edits and processes which Screen Master 
automatically includes into the screen program. 
This allows for ‘On the Fly FUNCTION KEY 
AND WINDOW ROUTINES. 

¢ RECORD FORMATS and initialization routines 

for Structures and Arrays are automatically 

generated. 

CAN SPECIFY a Protected Field to be automatically 

redisplayed if its value changes. 

e TYPES INCLUDE Strings, Yes/No, Time, 

Male/Female and Numbers. 

FIELDS CAN BE STORED (declared) as 

Boolean, Integer, Real, Character, or String. 






COMPARISON WITH 
OTHER PRODUCTS 


TURBO SCREEN 
SCREEN SCULPTURE 
MASTER _i*Ver - 1.01 











Full support for structures, arrays 
and Declarations specifications NO 
Full support for user written pro- 
cedures, function keys & help 







screens YES NO 
Etch-A-Sketch Border Drawings YES NO 
Point and Paint color interaction YES YES 
Border color control YES NO 
User defined valid character sets YES NO 







Display of Caps/Num Lock Status 
Optional realtime initialization of 
data/time 


TURBO RESIDENT ISAM 

Replaces Borland’s Toolbox ISAM method 

¢ Eliminates 8k of code Space that Borland’s Tur- 
bo Toolbox ISAM requires in your program. 

e Puts the Key Buffer Data Area outside of your 
program's data space. 

¢ Speeds Compling 

Eliminates errors caused by inconsistant ISAM 

Specifications between ISAM files. 

¢ Increases program loading time. 

e Reduces object program size. 

e Offers SUPER-FAST record creation and 
lookup. For example, it can CREATE over 20 
Single key records PER SECOND on an IBM AT 
running at a 9 meg clock rate. 








OUR USERS REPORT 

° “Since Fall of 85, | have generated over 300 pro- 
gram modules with it and find it to be just what | 
needed. Most of all the modules represent 5000 
to 8000 lines of Pascal Code’”’ Oner Systems 

°e “By being able to Produce a 21 screen and 
menu control demo so quickly helped me obtain 
the contract.” 

e “Speeded up my screen development by 6 
times”’ Elexor Associates. 

e “Has many of the features of the Super Mini 
development tools costing $10,000.” Applied 
Micro Systems. 

° “We developed 3 Vertical Market Applications in 
the 6 months we had your system.’’ Absolute 
Systems. 
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REVIEWS 


Turbo Prolog: 
The Language 


by Michael Swaine 
he story was too good to be | ie 


| true. I had to believe it. 

A software developer of 
my acquaintance had designed an Al 
product and was searching for the 
best development environment for 


its implementation. Having worked 
with PROLOG, he knew he wanted to 


The cut operator ts 
the feature PROLOG — 
most needs to lose. — 


use it, if he could only find an imple- 


mentation that met his needs. Bor- 
land, he heard, had acquired a fast 
PROLOG compiler—not an interpret- 
er, but a compiler—and would be 
selling it for less than $100. Even 
though price was not his biggest con- 
cern, he felt he owed it to prudence 
to check this out. He called Borland. 

Because he had a product in the 
works, the developer’s questions 
were specific and technical, just as, 
because Borland had not yet released 
the product and had not developed it 
in-house, the answers he got initially 
were vague and unsatisfying. Perse- 
vering, he finally penetrated deep 
within the company to one program- 
mer who really knew the product, 
the in-house expert. Although the 
programmer was knowledgeable and 
forthright, some of his answers sur- 
prised the developer, who conse- 
quently posed even more probing 
questions about the features and capa- 
bilities of the implementation, elicit- 
ing even more—to the developer— 
surprising answers. Finally, the pro- 
grammer blurted out, ‘Well, you 
know it’s not PROLOG; it’s Turbo 
Prolog.” 

Apocryphal, no doubt. One of the 
goals of this review will be to decide 
what poetic truth there may be in the 
story. 





Michael Swaine, 501 Galveston Dr., 
Redwood City, CA 94063. 


36 





‘“‘Core’’ PROLOG 

PROLOG is a declarative as opposed to 
an imperative language, meaning 
that a program consists of a set of 
statements of fact rather than of a list 
of instructions. The language itself 
has the ability to do some of what in 
other languages is the programmer's 
job because PROLOG embodies an in- 
ference engine based on the tech- 
niques of resolution and unification. 
Resolution as a language basis is 
known tobe logically complete in the 
sense that it can generate any of the 
logical implications of the facts and 
rules in a knowledge base. The im- 
perative mode, the flow of control, 
and the logical inference process in a 
PROLOG program are all handled on 
an application-independent basis by 
the interpreter—or, now that PRO- 
LOG compilers are coming into being, 
at any rate not by the programmer. 
In principle, the programmer simply 
throws statements at PROLOG, and 
PROLOG deduces what is deducible 
(prompted by questions, referred to 
in PROLOG as goals). 

If the above description makes the 
programmer’s job sound too simple, 
note that the statements can be con- 
tingencies on variables, such as these 
two statements: 


grandfather(X,G) :- 









father(P,G), mother(X,P). 
grandfather(X,G) :- 
father(P,G), father(X,P). 


which state that the grandfather re- 
lationship holds between entities X 
and G if the father relationship holds 
between P and G and the mother re- 
lationship holds between X and P, or 
if the father relationship holds be- 
tween P and G and the father rela- 
tionship also holds between X and P. 
These rules, together with a database 
of facts such as the following about 
parents and their children: 


mother(john, rita). 
father(jacob, eli). 
father(rita, luigi). 
father(john, jacob). 


permit automatic deduction of impli- 
cations, as in the following dialogue: 


you: grandfather(john,G) 
program: G = eli 
program: G = luigi 


in which you ask for and receive the 
names of John’s grandparents. 
Despite the curious fact that the or- 
der of statements (for example, the or- 
der of the four statements about par- 
enthood above) is often irrelevant to 
the successful execution of PROLOG 
programs, it is quite relevant to their 
efficient execution, and a PROLOG pro- 
grammer has to expend some effort 
structuring programs for efficiency. 
For a solid presentation of PROLOG, 
you should read Programming in Pro- 
log, second edition, by W. F. Clocksin 
and C. F. Mellish. A good introduction 
for programmers is Dave Cortesi’s 
“Tour of PROLOG” (DDJ, March 1985). 
Details of these and other sources are 
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listed at the end of this review. 

What you won't find anywhere is 
the official definition of the language. 
Not only is there no such thing as stan- 
dard PROLOG, but it’s also not even 
clear that PROLOG is a language by ev- 
eryone's definition. The closest thing 
we have to an official, broadly accept- 
ed definition is Clocksin and Mellish’s 
“core” PROLOG. Clocksin and Mellish, 
though, are more descriptive than 
prescriptive regarding linguistic di- 
versity and even seem to acknowl- 
edge that PROLOG may be less impor- 
tant as a language in itself than for the 
more powerful languages that will be 
developed in it or from it. PROLOG, 
they say in the preface to the second 
edition of their book, ‘is now seen asa 
potential basis for an important new 
generation of programming lan- 
guages and systems.” 

PROLOG as it now stands has some 
deficiencies, and we have reason to 
look forward to that new generation 
of programming languages. For one 
thing, one of the few mechanisms for 
limiting explicitly the search space for 
solutions is the fairly awkward and 
implicit technique of ordering clauses 
and conjuncts. Another mechanism is 
the cut operator, which Clocksin and 
Mellish identify as the feature PROLOG 
most needs to lose. 

Then there are the limitations of 
resolution, as discussed by Michael R. 
Genesereth and Matthew L. Ginsberg 
("Logic Programming,” Communica- 
tions of the ACM, September 1985). A 
good logic programming system, 
7 point out, needs to be able to 

“draw conclusions from uncertain 
data, reason analogically, and gener- 
alize its knowledge appropriately.” 
That’s not resolution, and it’s not 
PROLOG. 

What is PROLOG, officially? On page 
111 of their book, Clocksin and Mel- 
lish erect a “core” PROLOG, built of 
the features most often found in ex- 
isting implementations, on top of 
“pure” PROLOG; the built-in predi- 
cates many people regard as an inte- 
gral part of the language proper are 
in fact part of the patchwork core, 
not the pure essence. The body of 
PROLOG explicitly put forth in Clock- 
sin and Mellish is not a full language, 
and implementers have extended it 
as they saw fit. Finally, although 
Clocksin and Mellish have neverthe- 
less cobbled together some sort of av- 
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erage implementation in their core 
PROLOG, a separate strand of develop- 
ment is represented by micro-PRO- 
LOG, a version with a radically differ- 
ent syntax, described in micro- 
PROLOG: Programming in Logic by K 
L. Clark and F. G. McCabe. 

Despite the limitations of resolu- 
tion and the lack of definition of the 
PROLOG language, powerful and effi- 
cient implementations of PROLOG 
have been developed in Europe, Aus- 
tralia, Japan, and the United States. 
Several PC-based PROLOGs now exist 
(see the box below), one of the most 
interesting of which, at least in terms 
of claims being made about its speed, 
is Borland’s Turbo Prolog. Judging by 
the discussions on DDJ’s CompuServe 
forum, there is much difference of 
opinion about the product. 

Because there is no clear standard 
against which to weigh Turbo Pro- 
log, and because vendors of other 
personal-computer-based PROLOG 
implementations seem to have had 
something else in mind when they 
developed their products, it makes 
sense to look at Turbo Prolog in isola- 
tion; DDJ does, however, plan to fol- 
low up on this review witha compar- 
ative review of PROLOG 
implementations. This review focus- 
es on Borland’s Turbo Prolog from 
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several directions: as an implementa- 
tion of PROLOG, using Clocksin and 
Mellish core PROLOG as a soft stan- 
dard; as a language and software de- 
velopment environment in its own 
right; as a learning environment; and 
aS a phenomenon in the world of 
software tools. On the way, it ad- 
dresses some of the claims being 
made about Turbo Prolog. 


Claim 1: Not Full PROLOG 
Turbo Prolog is not full PROLOG. 

You hear this claim often, most of- 
ten from PROLOG purists and Borland 
competitors. It’s certainly true, even 
by a fairly flexible definition of the 
language, that Turbo Prolog lacks 
some of the requisite elements of a 
full PROLOG implementation. The left 
column of Table 1, page 38, shows the 
major features of core PROLOG that 
are missing in Turbo Prolog. Many 
syntactical differences are left out of 
the table; Turbo Prolog largely ig- 
nores core PROLOG 1/O, substituting 
its own rich collection of 1/0 primi- 
tives, screen-handling functions, and 
graphics commands. The Borland 
syntax is eclectic. 

Turbo Prolog does, however, pro- 
vide the bulk of what makes up core 
PROLOG. (Henceforth I'll drop the 
word core, but keep in mind that I 
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TURBO PROLOG 
(continued from page 37) 





mean this soft standard when I refer 
to PROLOG.) Turbo Prolog is a declara- 
tive language built around a resolu- 
tion-based inference engine. The im- 
plementation uses recursion and 
backtracking and supports the usual 
PROLOG flow-of-control tools of cut 
and fail and the explicit ordering of 
clauses and conjuncts to control pro- 
gram flow. Turbo Prolog also allows 
the programmer additional control 
via a compiler directive that checks 
for possible nondeterministic 
clauses. It supports, with some excep- 
tions and extensions, Clocksin and 
Mellish syntax. 

Perhaps the greatest shortcoming 
of Turbo Prolog as an implementation 
of PROLOG is the lack of what might be 
called ‘‘metalinguistic’” functions and 
operators. Some of these supplied in 
PROLOG are arg, functor, name, Op, 
clause, and call and the univ operator. 
In general, these functions allow the 
PROLOG program to examine itself, to 
operate on code as data, and to con- 
struct new clauses and goals un- 
dreamt of by the programmer. 
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Table 1: Major feature differences between ‘core’ PROLOG and Turbo Prolog 
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arithmetic: bitand, bitnot, bitxor, bit, bitleft, 
_. _bitright. 


- (nW arg, al 


Of these, some are less important 
than others; op allows extension of 
the operators of the language so that, 
for example, you could define * to be 
the exponentiation operator that Bor- 
land didn’t supply. This function is a 
handy tool, allowing the program- 
mer to define the arity and structure 
(for example, two-argument infix) 
for new operators. But as Clocksin 
and Mellish point out, this capability 
is ultimately nothing more than a de- 
vice for prettying up I/O; it adds no 
additional computational power. 

Also, to some extent the metalin- 
guistic predicates and operators are 
interchangeable or can be defined in 
terms of one another. You don't abso- 
lutely need the univ operator if you 
have both functor and arg, and vice 
versa. But either the univ operator or 
the combination of functor and arg is 
needed to map data structures and 
clauses (code elements) into one an- 
other so that in PROLOG code is truly 
data. 

As an example of the power of 
these metalinguistic constructs, con- 
sider the following metainterpreter 
for PROLOG, adapted from Henryk 
Jan Komorowski and Shigeo Omori's 












fint nt, readreal read- 
, about a dozen 





e conversion: 


_dword, storage, 






“date, time. 


cursor(3,8),readin(Y), 

concat(X,‘‘ ’’,X1),concat(X1,Y,Z), 

concat(‘‘copy ”’,Z,W), 
makewindow(3,7,7,‘‘Process’’,14,15,8,50), 

write(“‘ Copying “',X,’’ to’’,Y), cursor(2,3), 


system(W). 





Table 2: A Borland routine that gives users a window to DOS 
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article ‘‘A Model and an Implementa- 
tion of a Logic Programming Envi- 
ronment,” in the Proceedings of the 
ACM SIGPLAN 85 Symposium on Lan- 
guage Issues in Programming Envi- 
ronments. This code is also adapted 
from Clocksin and Mellish. 


provettrue) :- !. 
prove(P, <morePs>) :- 

prove(P), prove(<morePs>). 
provel(P) :- 

clause(P, Body), prove(Body). 


These clauses mean succeed when 
the argument is true; to prove a con- 
junction, prove the first clause, then 
prove the rest; and to prove one 
thing, find a clause in the database 
with that thing as its head and prove 
the body of the clause. This metain- 
terpreter allows the programmer to 
redefine the action of the PROLOG in- 
terpreter, and it’s the function clause, 
with its ability to examine code as 
data, that permits this. 

This predicate prove is a simple ver- 
sion of the PROLOG call. The Turbo 
Prolog manual (p. 151) also defines an 
interpreter (called call) that uses Tur- 
bo Prolog’s call-by-reference capabili- 
ty. The listing (unfortunately compli- 
cated by several typographical errors) 
suggests how you might build the 
missing metalinguistic elements. 

Nevertheless, the claim that Turbo 
Prolog is not full PROLOG is justified, 
and that places limits on what you 
can do with it. Complex applications 
developed under existing PROLOG 
versions may require significant re- 
thinking before they can be ported to 
Turbo. On the other hand, Turbo Pro- 
log does provide something that 
other PROLOGs may not in its support 
of DOS calls and machine-language 
functions. This low-level support 
suggests that anything missing from 
the compiler can be supplied—if 
you're willing to write it yourself. 

What may prove to be as great a 
hindrance to experienced PROLOG 
programmers using Turbo Prolog, 
though, are the features the language 
has that, from a purist’s point of 
view, it shouldn't have. These fea- 
tures are also the greatest advantage 
Turbo Prolog might claim over more 
faithful implementations. 


Claim 2: New Language 
Turbo Prolog is not PROLOG at all but 
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TURBO PROLOG 
(continued from page 38) 


a new language. 

“It’s not PROLOG; it’s Turbo Pro- 
log.’’—apocryphal Borland 
programmer. 

The right-hand column of Table 1 
points out another way in which Bor- 
land’s compiler deviates from PRO- 
LOG: by extending it and by being in 
some senses a richer language. Turbo 
Prolog allows access tomemory, I/O 
ports ,and BIOS routines via a bios 
predicate and to DOS via a predicate 
called system. Using the system pred- 
icate and the strong display facilities 
of Turbo Prolog, the programmer 
can easily give the user a window to 
DOS. The program shown in Table 2, 
page 38, is a Borland-supplied, win- 
dow-oriented, file copy routine that 
shows the system predicate in action. 
As you see, it is virtually devoid of 
any PROLOG declarative flavor. 

Because Turbo Prolog is compiled, 
certain features Clocksin and Mellish 
describe, such as trace, are imple- 


mented in Turbo as compiler direc- 
tives. Turbo Prolog also has some 
compiler directives expressly con- 
ceived to help assess efficiency of 
program structure in PROLOG, such 
as check_determ, check—cmpio, 
nowarnings, and diagnostics. These 
tools, which do such things as elimi- 
nating tail recursions and flagging 
possibly nondeterministic clauses, 
are needed in a language that pro- 
vides as few explicit controls on pro- 
gram flow as does PROLOG. Turbo 
Prolog also maintains the program- 
mer’s variable names for postcompi- 
lation editing of source code. 

You can, according to Borland 
haven't tested this), incorporate in 
your Turbo Prolog programs subrou- 
tines written in 8088 assembly lan- 
guage, FORTRAN, C, or Pascal (but not 
Turbo Pascal, yet). That alone won't 
make the routines PROLOG-like, of 
course. If you want to write compo- 
nents in some other language and 
have them perform PROLOG pur- 
poses, you may have to work a little: 
a single three-argument predicate 
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could conceivably require nine sepa- 
rate routines if implemented in as- 
sembly language because each per- 
mutation of instantiated and 
uninstantiated arguments could re- 
quire different action. 

Some of Turbo Prolog’s deviations 
from PROLOG style—for example, 
Turbo Prolog’s strict data typing— 
force rethinking of program logic. 
You could argue that strict data typing 
violates PROLOG design and limits use- 
fulness and portability. Borland’s 
manual defends the practice in terms 
of creating a more secure program de- 
velopment environment and reduc- 
ing space requirements for the 
language. 

There are other arguments for us- 
ing some kind of data typing in PRO- 
LOG: Daniel Brand’s article “On Typ- 
ing in Prolog,” in the January 1986 
ACM SIGPLAN Notices presents argu- 
ments for at least one model of typed 
PROLOG. Brand claims his model has 
the advantages of improved program 
readability, reduced computation 
time because of fewer and shorter 
clauses and reduced search space, 
and reduced need for the cut opera- 
tor. It requires an enhanced unifica- 
tion algorithm that checks data types 
before unifying clauses. This slows 
things down a little, but Brand thinks 
the cumulative effect is faster code. 
Turbo Prolog’s approach is different 
but shares some of these advantages. 

A related limitation of Turbo Pro- 
log is the constraint that you can only 
assert facts, not rules, and this also re- 
tricts the product’s usefulness. 

Is Turbo Prolog truly PROLOG? If 
you need the full metalinguistic 
power of the core predicates that 
Clocksin and Mellish sketch out in 
Chapter 6 of their book, or if you will 
be porting a complex existing PRO- 
LOG system to the PC—no. Otherwise, 
consider this just a particularly devi- 
ant dialect among other deviations. 
The reason for Turbo Prolog’s devi- 
ations from Clocksin and Mellish is 
clear: the programmers wanted to 
make it fast. 


Claim 3: Faster 
Turbo Prolog is faster than the Japa- 
nese fifth-generation language sys- 
tems. 

This claim comes from the Turbo 
Prolog manual (p. 4): ‘“Turbo Prolog 
runs on a computer costing about 
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TURBO PROLOG 
(continued from page 40) 


$2000, yet, in a comparison made in 
1984 using an earlier version of the 
system, it produced programs that 
executed faster than those produced 
by the prototype of the Japanese 
Fifth Generation computer.’ And 
from the March 3 press release, Tur- 
bo Prolog “outperforms other exist- 
ing PROLOG language tools by factors 
of up to 10,000." 

The developers of the compiler 
that Borland is marketing in the Unit- 
ed States as Turbo Prolog sacrificed 
power and portability for speed. 
How much speed did they buy? 

The speed of AI languages is mea- 
sured in LIPS (logical instructions per 
second). It’s reasonable that a fifth- 
generation language should have a 
different unit for measuring perfor- 
mance from that used in evaluating 
third-generation languages. The first- 
through fifth-generation language 
classification is chiefly a matter of the 
power of a typical instruction. A fifth- 
generation logical instruction ought to 
do more than a third-generation in- 
struction does—so the theory goes. 
Turbo Prolog has many instructions 
that PROLOG lacks, but these are all 
third-generation (or possibly, in the 
case of the graphics operations, 
fourth-generation) instructions. 

To give a true picture of what LIPS 
measure as compared with non-logi- 
cal IPS would require fairly detailed 
analysis of some large tasks, lifting 
out components that are and are not 
good candidates for backtracking 
and resolution. The picture would be 
complicated by subtle differences in 
the goals of the declarative and im- 
perative modes of programming: 
How do you compare speed if you 
don’t agree about what constitutes 
acceptable user input, for example? 

What I’m doing here is much less 
than this; I’m providing the results of 
a typical benchmark for imperative 
programming with a rough bound 
on the number of logical instructions 
it requires in Turbo Prolog. 

The results don't support Borland’s 
extravagant claims. The benchmark I 
ran was a simple recursive version of 
the sieve of Eratosthenes. Generating 
all primes less than n should take on 
the order of n? operations or less: for 
primes less than 100, that’s on the or- 
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der of 10,000 LIPS as a rough bound. 
The Turbo Prolog result, 0.5 second 
for all primes less than 100, should be 
compared with results for your fa- 
vorite imperative language and for 
other PROLOG implementations. (I got 
a value of 19 seconds for another, 
particularly slow, interpreted imple- 
mentation of PROLOG.) Turbo Prolog 
was fast, but nowhere near 10,000 
times as fast as the slowest competi- 
tor I could find. Furthermore, be- 
cause the Symbolics PROLOG machine 
is projected to run at 100,000 LIPS, I 
don’t think that any claim of speed 
for Turbo Prolog comparable to 
speed for serious fifth-generation 
machines need be taken seriously. 

Finally, Turbo Prolog lacks virtual 
memory, a feature of some other mi- 
crocomputer implementations. I sus- 
pect that the fast benchmark results 
Borland alludes to are based on ac- 
cesses to databases in RAM. 

Turbo Prolog requires an IBM PC or 
compatible with PC-DOS or MS-DOS 2.0 
or later and 384K RAM. I tested it with 
an AT&T 6300 with 640K RAM. I also 
brought it up on a MacCharlie Plus 
with 640K RAM asa 128K Switcher ap- 
plication on a 512K Hyperdrive Mac. 

Borland’s speed claims are perhaps 
extravagant, but Turbo Prolog cer- 
tainly produces fast code, particular- 
ly when databases are small enough 
to reside in RAM. 


Claim 4: Difficult 

PROLOG is difficult to understand, 
learn, and use, and Turbo Prolog is in 
this respect an implementation of 
PROLOG. 

This one is common among experi- 
enced programmers. I support Mor- 
ein’s law, passed by Robert Morein, 
the author of A.D.A. PROLOG, a year or 
so ago, which states the following: If 
it’s hard in FORTRAN, it’s easy in PRO- 
LOG. If it’s hard in PROLOG, it’s easy in 
FORTRAN. 

I think, but will not try to defend 
this opinion, that PROLOG is no harder 
than FORTRAN. I find Turbo Prolog to 
be an excellent learning environ- 
ment, although it’s arguable just 
what the learner is learning when 
learning Turbo Prolog. 

Turbo Prolog has an excellent user 
interface, with multiple windows for 
editing, tracing, output, and mes- 
sages and pull-down menus for ac- 
cessing DOS, configuring the system, 


and selecting the destination for com- 
pilation (RAM, disk). It’s a compiler 
with the interactive feel of an inter- 
preter. It has the same editor Borland 
puts in all its products—fine if you 
like WordStar, but more to the point, 
instantly familiar to millions of peo- 
ple. This is the user interface Borland 
will put into the next version of Tur- 
bo Pascal, projected for release in the 
second quarter of next year. 

The manual is a decent tool for 
learning Turbo Prolog or the begin- 
nings of PROLOG. To go beyond, a 
book on the language is necessary. 
The manual contains abundant ex- 
amples of code, both short illustrative 
segments and full programs. After 
developing the difficult topic of the 
cut operator, the manual gives practi- 
cal, rule-of-thumb advice for its use. 
The manual’s chief defects as a learn- 
ing tool are an inadequate index, ex- 
cessive errors, and the lack of ade- 
quate acknowledgment of devia- 
tions from Clocksin and Mellish core 
PROLOG. For that matter, I could find 
no references to Clocksin and Mellish 
or any other book on PROLOG. Never- 
theless, it’s generally good tutorial 
documentation and, if cleaned up for 
the next printing, should be useful to 
most people interested in getting 
started with PROLOG. 

I conducted an informal test of ease 
of learning, teaching a novice the ru- 
diments of Pascal and of PROLOG us- 
ing the Turbo Pascal and Turbo Pro- 
log manuals as texts. Although I have 
taught Pascal professionally and 
know it much better than I do PRO- 
LOG, I saw no difference in ease of 
acquiring the concepts. 


Claim 5: Sorry Excuse for Code 
Turbo Prolog is a ‘‘sorry excuse for 
coding” from ‘‘a couple of Danish 
folks.” 

PC Week made this claim in the 
May 27, 1986, issue under its house 
pseudonym Spencer F. Katt. | 

It’s true that Turbo Prolog is a Dani- 
ish product, as is Turbo Pascal; nearly 
all Borland products are European. 
Borland is oddly secretive about the 
fact that it is primarily in the business 
of software acquisition and distribu- 
tion; Borland’s Independent Contrac- 
tor Nondisclosure Agreement (which 
I have not signed) defines as trade se- 
cret “all information concerning the 
identity or whereabouts of key devel- 
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THE BEST FULL-SCREEN FIELD-ORIENTED MAPPING 
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$49.95... COMPLETE. 


‘' PCFM is absolutely the best screen formatting facil ity available. 
John Hooper, President, Business Data Services, Inc. 
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¢ Unrestricted Field-to-Field Forward/Backward Cursor Movement. 
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¢ NEW---> Monitor Protection “Time-Out” Feature. 
* NEW---> Valid Control Keys defined in Map Development Language. 
¢ Field oriented INSERT, DELETE, and EOF 


PCFM is not copy protected, comes with complete documentation, and is royalty free. PCFM is written in 
MACRO Assembler providing INSTANTANEOUS data-to-screen and screen-to-data transmission. 


Your copy of PCFM includes the PCFM Technical Reference Manual, the Application Map (DSECT) Genera- 
tor, the Map Load Module (.OB]) Generator, and PCFM 1.10 internal software. 


PCFM requires an IBM/PC, XT, or compatible computer with 128k RAM and PC/MS DOS 2.0 or better. 


CICS/BMS is a trademark of IBM. 
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TURBO PROLOG 
(continued from page 42) 


opers of Company products, past or 
current.” Reflex may be the one Bor- 
land product widely known to have 
been acquired. 

It’s not true, however, that Turbo 
Prolog is poorly written. This is a 
good piece of coding. It produces sur- 
prisingly fast compiled code. The 
user interface is better than Turbo 
Pascal's current interface for rapid 
development of small routines. And 
the links to DOS and other languages 
and the tools for optimization make 





























... Software Developers .. . 
Develop your software to work with most of the 
desktop printers on the market? 


Now, CARDINAL POINT INCORPORATED has published 

Volume || of the PROGRAMMERS’ HANDBOOK OF COM- 

PUTER PRINTER COMMANDS II, for models as new as 1985. 

Volume I! compliments (but does not replace) book one 

and adds more detailed ESCAPE and Control Codes se- 

quences for more printers by the leading printer manufac- 

turers. Each book is 5%” x 81%", spiral bond, and contains 

an easy to use table-format. Codes are listed in text form 

with hex and decimal equivalents and detailed function 

description. 

These two volumes should be a part of your reference library. 
1. Volume | (models through 1984) .............----- $37.95 
2. Volume Il (models as new as 1985) ................ $26.95 
3. 2 book set (Vols. | & Il) 

(Indiana residents add 5% sales tax. 
Please include $2.50 shpg/hdig) 
TO ORDER CALL: 
1-800-628-2828 ext. 534 (24 Hrs) 

Quantity Orders or Dealers may call the number below collect. For 
detailed information, call or write: 
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Users’ 
Group 


Over 90 volumes of public 
domain ‘‘C’’ software including: 


compilers 
editors 
text formatters 
communications 
packages 
e many UNIX-like tools 


Write or call for more details 


The C Users’ Group 
Post Office Box 97 
McPherson, KS 67460 
(316) 241-1065 
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this product more than a toy. 

The applications for which Turbo 
Prolog is most appropriate may be 
applications that are on the border of 
artificial intelligence rather than in 
the mainstream. As the manual sug- 
gests, it could serve as a good specifi- 
cation language. The speed of the 
compiled code and the fifth-genera- 
tion richness of the instructions may 
make it a good database development 
language, whereas the lack of meta- 
linguistic power may make it a poor 
candidate for abstract problem solv- 
ing. In any case, it has the Turbo Pas- 
cal strengths for quick development 
and testing of small modules. The 
product has a place. 


Claim 6: Half-Million Sales 
Borland will sell half a million copies 
of Turbo Prolog in the next two 
years. 

That’s what Philippe Kahn claims. 
Well, actually he says there may be 
that many people using the prod- 
uct—not the same thing, quite. 

It’s possible. Logic programming is 
in vogue, and Borland has built a rep- 
utation with Turbo Pascal that could 
transfer to Turbo Prolog. Novice Tur- 
bo Pascal users didn’t care about its 
deviations from the standard, and 
novice Turbo Prolog users will be 
even less sensitive to the less-con- 
straining soft standard for PROLOG. 
Of course, Turbo Prolog is not the 
only PROLOG, nor this time has Bor- 
land got the cheapest product. But if 
any PROLOG is as successful as Kahn 
hopes his will be, it will be good news 
for all PROLOG developers. 

Some companies are beginning to 
look upon Borland as the company 
that opens markets for them. On May 
20, less than three weeks after Turbo 
Prolog became available, Arity an- 
nounced its trade-in plan. Buy Arity’s 
$795 PROLOG development system, 
and the firm will give you $50 for 
page 213 of your Turbo Prolog man- 
ual as proof of purchase (that’s the 
page that explains that there is no 
simple way of interfacing Turbo Pro- 
log modules with Turbo Pascal pro- 
grams). The program is due to expire 
about the time you read this, but it 
presents one view, the view Arity 
would like you to have, of Turbo Pro- 
log’s position: a beginner's language 
for those who want to play with PRO- 
LOG syntax before deciding whether 


to move up to a serious development 
system. It’s the view Logitech would 
like you to have of Turbo Pascal vis-a- 
vis Logitech’s Modula-2, which is 
why it is selling a product that lets 
you translate your old Turbo Pascal 
programs to Modula-2. 

There is undoubtedly some truth to 
this perception. It’s quite possible 
that Turbo Prolog, with its inviting 
user interface, will open up a large 
market for PROLOG products. 

Logic programming has been pro- 
jected to be the dominant form of 
programming in the next century. 
The next century begins in 14 years 
and 4 months. That should be more 
than enough time to turn PROLOG 
into that ‘important new generation 
of programming languages and sys- 
tems” Clocksin and Mellish envision, 
especially if Kahn’s prediction of half 
a million new PROLOG programmers 
is even half right. 
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Cc spoken here... 


High C™ 


Do you want to use a C compiler that 


Power Tools 


* sports no less than five memory models for the 8086 (Small, Compact, Medium, Big, 


was chosen by Ashton-Tate for implementing 
dBASE Ill® Plus 
was well rated in Computer Language, Feb. 86 
and Dr. Dobbs Journal, August 86 
“would have saved me three weeks of porting time 
had | had High C instead of Microsoft’s new C’”’ 
Mike LeBlanc, compiler developer, Sky Computers 
“is the only C compiler for the IBM PC capable of 
compiling NYU’s Ada/Ed compiler’”’ 
Dave Shields, research scientist, New York Univ. 
has a complete run-time library 
has structure assignment, enum, void... 
supports nested functions as in Pascal 
Supports pcc and full K&R C plus some latest, nifty 
extensions from the new ANSI-proposed C standard 
“saved 15% of code over five large modules of 
MultiMate relative to Lattice C’’ 
David Beauchesne, Multimate International 





Pascal spoken here... 


Professional Pascal™ 


Do you want to use a Pascal compiler that 


for 
Each compiler ¢ generates superb code, with optimizations such as common-subexpression elimination and cross-jumping 


was chosen by Lifetree Software, Inc., for im- 
plementing Volkswriter Deluxe™ 

was well rated in Computer Language, May 86: 
“The clear choice for large-scale programming 
projects...’"; and PC Tech Journal, July 86 

serves as a systems and applications language at 
CAD/CAM giant Daisy Systems Corporation 

has 8-, 16-, and 32-bit integers; sets up to 64K bits 
has varying-strings of up to 64K characters 

has a full-fledged C macro preprocessor 

has many run-time library additions: UNIX™-like I/O, 
multiple heaps, interrupts,. . . 

has all the bit-pushing operators of C 

has many more extensions, getting you half way to 
Ada® for a non-Ada price 

is the ‘“‘howitzer’’ of Pascals and ‘‘could well be the 
most powerful Pascal compiler ever implemented on 
a microcomputer’ PC Magazine, Oct. 29, 1985, p. 144 


Power Users 


and Large) © supports a unique 


implementation of register variables ¢ supports the 8087/80287 in native mode, or emulates ¢ supplies three floating-point 
formats ¢ generates special instructions for the 80186/286 e generates code that runs in 80286 protected mode gives you 


hundreds of error and warning messages, hel 
overlay data as well as code (when used with PLINK86) 
directly in high-level language « lets you get “ 


ping you find those subtle bugs before you need a debugger’s help « lets you 
, for substantial space savings « lets you write interrupt routines 
close to the machine’”’ with built-in move/scan/compare operations ¢ is supported 


by equivalent resident and cross compilers for the 80286 (UNIX V.2, Xenix, Concurrent DOS 286), 80386 (DOS, UNIX V.3), 
68010/20/68881 (UNIX V & 4.2, GEM-DOS™), 32032 (UNIX 4.2), VAX (UNIX 4.2, VMS), IBM 370,... © contains a multi- 
modular cross-referencer * produces ROM-able code for embedded applications ¢ can talk to those other languages 


by those other vendors ¢ gives you 64K run 
an amazing number of pragmas 
profile 
information for use with all known MS-DOS debugg 


-time stack space that can be shared with the heap ¢ is endowed with 
(compiler controls) for customization to your application e 
* supports direct access to MS-DOS; library supports DOS 3.X file-sharing * generates symbolic debugger 
ers ¢ allows exec-ing subprocesses ¢ was designed for profession- 


has a compiler start-up 


al software developers, not hobbyists ¢ comes with great technical support by a company that specializes in compilers 


¢ comes with extensive typeset documentation ¢ and more... call 





High C V1.3: $495 
OEMs: 
TWS: 






or write for your information packet today... 


Not recommended for casual use, but for applications needing industrial-strength tools, contact 


Wace 


Wats “ 


INCORPORATED 


903 Pacific Avenue, Suite 201, Santa Cruz, CA 95060-4429 


(408) 429-6382 (429-META), TELEX: 4930879 


—on any MS/PC-DOS system— 
Contact us about porting our professional compilers to your systems. 
Professional Compiler Developers and competitors, ask about our Translator Writing 


Abroad: 

ABC Software, The Netherlands 
Microsoftware, Tokyo 

Grey Matter, United Kingdom 
Buchdata, Frankfurt 


Professional Tools Since 1979 


Professional Pascal V2.6: $595 


System compiler toolbox; see the review in Computer Language, December, 1985. 
DOS Helper™: Need UNIX-like utilities to enhance MS-DOS? Ask about our powerful tools for 
$49.95—included free with MetaWare compilers: FIND, TAIL, MV, LS, CAT, UNIQ, 


FGREP, and WC. 


¢ MetaWare, High C, Professional Pascal, and DOS Helper are trademarks of MetaWare Incorporated ¢ Other trademarks and their owners are: UNIX— 
AT&T, dBASE Ill—Ashton-Tate, Volkswriter Deluxe—Lifetree Software, GEM-DOS—Digital Research, Ada-DoD. © 1986 MetaWare. 
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REVIEWS 


High-Speed Thrills 


A Review of Eight Turbo Boards 


ver the past few years, most 
q) of us switched from our old 
Z80 computers using the 
CP/M-80 operating system to IBM PCs 


(or clones) using PC(MS)-DOS. Then we | 


experienced the big disappointment 
of learning that the new machines 
weren't quite as fast as the old ones 
were. After all, most of us, even pro- 
grammers, have the great American 
dream: ‘‘More speed, faster is better, 
drag you for pink slips at the next 
stoplight!” Finding that your new 
computer isn’t as fast as your old one 
can damage your ego more than 
learning your brand new, expensive, 
foreign sports car isn’t as fast as your 
old jalopy. 

When IBM announced the PC/AT, 
we envisioned the enhanced produc- 
tivity and throughput the original PC 
had seemed to promise but had not 
produced. After all, we can rational- 
ize that the most time-consuming 
part of program development is the 
endless debug-recompile-test pro- 
cess. If we have faster machines, we 
can shorten the software develop- 
ment process and we can save mon- 
ey. The AT rekindled the American 
dream: lightning fast compiles; the 
pleasure of being power users. Most 
of us, though, have invested too 
much time and money expanding 
our old PCs and PC/XTs with memory 
expansion boards, hard disks, and 
anything else we could stuff into 
them to really justify junking our old 
PCs and XTs to buy new ATs. 

Early 1985 produced rumors of 
high-speed computer chips and 


Mike Elkins and Steve King, 720 Flora 
Dr., Oceanside, CA 92056 
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for the IBM PC 


by Mike Elkins 
and Steve King 


We used six applica- 
tions programs and 


_ five benchmark pro- 


grams to test the 
boards. 


boards that could speed up PCs to 
match the AT’s performance—well, 
almost match the AT’s performance. 
NEC V20 rumors promised to replace 
your old 8088, provide complete soft- 
ware compatibility, and give you an 
85 percent increase in processing 
speed—still no match for the AT but 
not bad. In reality, the V20 provided 
what may be an 18 percent speed in- 
crease rather than the dreamed of 85 
percent gain. 

Last fall, we wandered through 
Comdex in Las Vegas and saw proto- 
type accelerator boards that made 
PCs run not just as fast as ATs but 
even faster—the boards were soft- 
ware compatible with both ma- 
chines. These boards are now becom- 
ing one of the most popular and 
desired PC and XT hardware en- 
hancements. In this article, we'll re- 
view six of these so-called turbo 
boards and maybe rekindle your 
American dream. 


The Benchmarks 

Most turbo boards utilize on-board 
high-speed memory with a 16-bit in- 
terface, a high clock rate, and a more 
efficient CPU to produce the desired 













increase in throughput. The boards 
we tested for this article produced 
processing speeds ranging from one 
and a half times the speed of a stan- 
dard PC to well beyond the speed of a 
standard AT—even beyond the speed 
of an AT with a higher clock speed. 

Our test machine was an IBM PC 
containing: 


¢ 256K RAM on the motherboard 

e AST Six Pac with 384K RAM 

¢ two floppies 

¢ 10-megabyte internal drive 

¢ 10-megabyte IOMEGA Bernoulli Box 
¢ STB Graphics Plus and Color Monitor 
e Mitsuba Expansion Unit 


We used the following programs to 
test the turbo boards’ PC compatibil- 
ity: BASICA, Brief Programmer's Edi- 
tor, dBASE III, Framework II, Micro- 
soft C 3.0, and Microsoft Link. We've 
noted where any didn’t function 
properly. 

We used the following benchmark 
programs compiled with the Micro- 
soft C 3.0 compiler: 


¢ Compile/Link: Compile and link a 
425-line C program with a RAM disk 
for the TMP work area. 

¢ Sieve * 10: Ten loops through the Er- 
atosthenes Sieve prime-number pro- 
gram (Listing One, page 88). 

«Sieve * 100: 100 loops through the 
Sieve program. 

¢Dhrystone: The Dhrystone bench- 
mark program (Listing Two, page 88). 
¢ The Sysinfo utility included in Nor- 
ton’s Utilities, Version 3.1. 


The public-domain utility TIMEIT, 
written by Jack Means, timed the first 
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three benchmarks. Table 1, below, 
contains a summary of our results. 

Reinhold P. Weicker originally de- 
veloped the Dhrystone program us- 
ing the Ada programming language. 
A careful C conversion preserves the 
Ada likeness at the expense of C for- 
mat and at the same time demon- 
strates the versatility of C. The pro- 
gram does nothing useful but is a 
well-rounded benchmark program 
containing dynamic memory alloca- 
tion and manipulation, along with 
some number crunching. 


The Boards 

Well now give a brief description of 
each of the boards we used in our 
benchmark tests and some brief com- 
ments on their performance. See the 
list of companies and addresses on 
page 49. 


QuadSprint 
Quadram’s QuadSprint contains an 
8086 microprocessor running at 9.54 
MHz. This board takes up one full- 
size slot and replaces the 8088 with a 
jumper-type ribbon cable. Because 
you remove the 8088 from the PC, 
you have to de-install the board in or- 
der to return to native mode. Quad 
Sprint needs no software drivers or 
special programs for operation. 

The QuadSprint board has 4K RAM, 
high-speed cache memory that is 








software switchable with a small BA- 
SIC program, which is listed in the 
manual. The program uses an OUT 
command to send a value to the speci- 
fied port (on or off). The board was 
software and hardware compatible 
with all our tests. QuadSprint uses the 
existing PC memory via the 8-bit PC 
system bus, which is probably why 
the speed increase was not as high as 
that of some of the other 8086 boards. 


PC Turbocharger 

PC Turbocharger from Univation 
uses an 8086 microprocessor running 
at 10 MHz. The board takes up a full 
slot and replaces the 8088 with a rib- 
bon cable. The company provides an 
8087 noise suppressor to plug into the 
8087 socket on the motherboard. You 
must replace two chips on the board 
if you have the PC Model 2 with a 
256K motherboard. Failure to read 
the documentation prior to installa- 
tion to ensure the proper chips are in 
place may scramble the data on your 
hard disk! 

The PC Turbocharger board 
doesn’t require that you reboot the 
system to change speeds, as is the 
case with some of the other boards. 

Univation provides several utilities 
with the PC Turbocharger, including 
a RAM disk, spooler, and cache—all 
have user-definable sizes. The com- 
pany also includes a memory tester 


Sieve*100 





and a program that copies ROM to 
high-speed RAM for fast execution of 
programs that make BIOS calls, such 
as BASICA. Because this board con- 
tains its own memory, we neutral- 
ized the AST Six Pac memory by set- 
ting its memory jumpers to 0. 


SpeedPac 286 
SpeedPac 286 from Victor Technolo- 
gy contains an 80286 microprocessor 
running at 7.2 MHz. The board takes 
up one half-size slot and replaces the 
8088 with a jumper-type ribbon ca- 
ble. You can’t switch back to stan- 
dard mode, and you must set 
jumpers to indicate available memo- 
ry. Because the board has no memo- 
ry, only PC memory is used. The 
board does, however, contain a high- 
speed 8K cache buffer and resident 
caching software. No software driv- 
ers or special programs are neces- 
sary. The SpeedPac 286 has a socket 
for an 80287 math coprocessor. 
Victor Technology provides special 
instructions for installing dBASE III. 
Because you can’t switch back to PC 
mode, many types of protected soft- 
ware may require that you remove 
the board temporarily when install- 
ing the software on your hard disk. 
This is a minor inconvenience in ex- 
change for the added performance 
you receive for this board’s low price. 
The board is compatible with IBM’s 
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Table 1: Benchmark summary 
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HIGH SPEED THRILLS 
(continued from page 47) 


Enhanced Graphics Adapter. 

We found that the 8088 replace- 
ment cable was too short to reach 
over an existing board in the first slot. 
We had to insert the SpeedPac 286 
board in the slot closest to the 8088 
socket, which is not a disadvantage in 
the XT where the half slot is seldom 
used. This board performed very 
well considering that it was using ex- 
isting 200-ns PC memory and an 8-bit 
interface. Victor Technology also of- 
fers a 60-day money-back guarantee. 
This is a real plus! 


286 Speed Pack 

Classic Technology Corp.'s 286 Speed 
Pack contains an 80286 microproces- 
sor; its speed is not documented. The 
board takes up one full-size slot and 
replaces the 8088 with a jumper-type 
ribbon cable. You plug the PC's 8088 
into a socket on the board and change 
back to standard mode with a switch 
on the back of the board. Then you 
must reboot. The socket is positioned 


[pene 


HELP/Control™ - an online help subsystem for the IBM-PC. 
Increase product marketability. Reduce product development time. 


so that the 8088's label reads in the 
opposite way from the labels for the 
rest of the chips on the board; this 
could cause confusion, even though it 
is well documented. 

You must set a jumper on the 286 
Speed Pack board to indicate mother- 
board type: Model 1, 2, or XT. The 
board has a socket for an 80287 math 
coprocessor and has its own RAM, 
which may be expanded to 4 mega- 
bytes. This board is designed primari- 
ly for the XT and, if you have an in- 
ternal hard disk, requires a 130-watt 
power supply. Because our test com- 
puter had only a 60-watt power sup- 
ply and an internal hard disk, we 
couldn’t run the PC with the hard 
disk installed. We also didn’t run the 
compile/link benchmark. When in- 
stalled in an XT, 286 Speed Pack uses 
the first 64K RAM on the mother- 
board to hold Dos; all other applica- 
tions run in the high-speed memory 
located on the board itself. 

The 286 Speed Pack board's bench- 
mark times were inconsistent, as was 
the case with most of the boards; we 
used the “best case’ values. Classic 





is at hand 
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HELP/Control is fast. Screens - up to full display size - appear almost instantaneously because the 
runtime system is written in assembler and accesses the screen memory directly. Smaller screens 
appear as windows. Once they've helped, the original display is restored just aS quickly. 


HELP for the programmer. A few simple subroutine calls add a full-featured online help subsystem to 
your application because HELP/Control is a runtime system linked or loaded with that application. 
HELP/Control has been fully tested with Microsoft C, Lattice C, Turbo Pascal, IBM BASIC (Interpreter 
and Compiler), Microsoft FORTRAN, IBM COBOL and assembler. It is distributed with sample programs 
in each language. 


HELP for the documentation writer. Build screens. Define captions. Associate each caption with a 
screen. HELP/Control includes a screen generation language, HELPGEN, that reads your sources, 
creates a runtime file, and lets you use your favorite editor. Our HELP/Control reads that file and 
displays help screens when the user activates the help function. 


HELP for the end user. Use the cursor control keys to select a caption. Press return. That's it. Each 
screen has a number of highlighted captions which indicate other screens with information on that 
subject. Lotus 1-2-3 users will feel right at home. We've even made the entire HELP/Control manual 
available as a set of screens so you can browse without ever cracking a book. 


HELP/Control comes complete with a detailed manual, both online and printed, with information for 
the programmer and documentation writer. It also includes instructions for the end user which may be 
incorporated into the application documentation. 


PC-DOS 2.0 or greater required for developing HELP/Control applications. Applications using 
HELP/Control will run under PC-DOS 1.0 or greater. The runtime system requires approximately SK 
for code and buffers for full size help screens. 


The complete HELP/Contro/ package (software, both manuals, demo programs) is $1 25.00.A 
demonstration diskette, including the online manual, is available for $15.00. To order or for more 
information, contact MDS, Inc. at (207) 772-5436. MasterCard and VISA accepted. 


f > 
MDS, INC., P.O. BOX 1237, PORTLAND, MAINE 04104 


Circle no. 285 on reader service card. 


Technology Corp. also provides net- 
work boards that allow multiple 
workstations to be attached to a PC/ 
XT containing 286 Speed Pack. This 
setup gives you an XT file server with 
the power and speed of an AT server. 


Piaster 286 

Pfaster 286 from Phoenix Computer 
Products Corp. uses an 80286 micro- 
processor running at 8 MHz. The 
board takes up a full slot and is the 
easiest of all the boards to install. It 
uses no ribbon cables, and you leave 
the 8088 in place. Software and easily 
installed device drivers activate it. 
You switch to the standard PC mode 
with a program called PSLOW and 
back to the 80286 mode with PFAST. 
Our test board came with 2-megabyte 
RAM, but it is also available with only 
1 megabyte. The board also contains 
an 80287 math coprocessor. 

Pfaster 286 supports the Lotus/In- 
tel/Microsoft (LIM) Extended Memo- 
ry Specification (EMS) and comes with 
a RAM disk that utilizes the extra me- 
gabyte of memory for non-EMS use. 

The Pfaster 286 board was the fast- 
est in many of the tests, but the 
screen I/O seemed jumpy and espe- 
cially slow with programs such as 
Framework II that write directly to 
the video memory. The Norton 
Sysinfo results were inconsistent, 
ranging from 6.1 to 8.4 in the PFAST 
mode. 

In the PFAST mode, Pfaster 286 uses 
motherboard memory for caching, 
allowing the compile/link bench- 
mark to outperform an 8-MHz IBM 
PC/AT containing a high-speed hard 
disk. The compile time was much 
better (51.74 seconds) when a 1-mega- 
byte RAM disk was used to hold all the 
necessary files. CHKDSK revealed that 
704K RAM was available after the 1- 
megabyte RAM disk was defined and 
the 8088 memory was set aside for 
caching. 

We couldn't convince the Brief edi- 
tor to run in the high-speed mode— 
the cursor disappeared and charac- 
ters were lost or duplicated. We rec- 
ommend this board, which seems 
well implemented and versatile de- 
spite the I/O problem, but it’s expen- 
sive. 


PC Turbo 286 


Orchid Technology’s PC Turbo 286 
uses an 80286 microprocessor run- 
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ning at 8 MHz with no wait states. 
The board takes up a full slot but re- 
quires no extra cables or chip remov- 
al. You activate this board with soft- 
ware device drivers that are easy to 
install and customize. The installa- 
tion software carefully changes your 
existing AUTOEXEC.BAT file and 
doesn’t disturb any commands, 
paths, or prompt commands. We 
found the software installation pro- 
cedures to be very professional: they 
prompted for parameters and al- 
ways explained the available options. 
The test board came with 1-megabyte 
RAM, but it is available with an addi- 
tional 1 megabyte on a daughter- 
board. It fully supports the LIM EMS. 
PC Turbo 286’s benchmark times 
were very consistent, and all test soft- 
ware performed quite well. Screen 
I/O was extremely fast, and there 
were no noticeable differences when 
we used the Turbo mode. An installa- 
tion option allows an increased 
screen I/O speed for nonflicker 
graphics boards—for example, our 
test PC’s STB board. With the software 
installed for the flicker option, we 





PC Turbo 286 

Orchid Technology 

47730 Westinghouse Dr. 

Fremont, CA 94539 

(415) 490-8586 

Price: $1,195 (1 megabyte) 
$1,480 (2 megabytes) 

Reader Service Number 45 





PC Turbocharger 
Univation Inc. 
1037 N. Fair Oaks Ave. 
Sunnyvale, CA 94089 
(408) 745-0180 
Price: $595 (128K) 
$795 (640K) 
Reader Service Number 46 


Piaster 286 
Phoenix Computer Products Corp. 
320 Norwood Park South 
Norwood, MA 02062 
(617) 762-5030 
Price: $1,495 (1 megabyte) 
$1,895 (2-megabyte unit 
evaluated) 


LAN software) 
Reader Service Number 47 
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found the resulting screen I/O was a 
little slower and somewhat jumpy, 
but PC Turbo 286 performed much 
better than did Pfaster 286. 

Fixed-disk caching (floppies, too, 
with a command-line option) takes 
advantage of the memory on the 
motherboard while the board is Op- 
erating in the Turbo mode. RAM disks 
and spoolers in the standard PC 
memory are also accessible in the 
Turbo mode. 

PC Turbo 286 supports the 80287 
math coprocessor, but our evaluation 
unit didn’t have one. The board per- 
formed flawlessly with all hardware 
in the test machine. 

Orchid Technology’s unit can also 
run in the PC/AT as a true dual pro- 
cessor. Two PC Turbo boards in a PC 
or XT can provide the same effect. 
The software to provide access to the 
other boards was in development 
and not available (but was document- 
ed) for our tests, however. 

Orchid Technology’s documenta- 
tion is complete and helpful, which is 
surprising because we had a beta ver- 
sion of the board. The documentation 






QuadSprint 

Quadram 

4355 International Blvd. 
Norcross, GA 30093 

(404) 923-6666 

Price: $645 

Reader Service Number 48 









SpeedPac 286 










covers jumper settings to change I/O 
addresses and interrupt request lines 
to minimize chances of unresolved 
hardware conflicts. 


Try It, You'll Like It 

Using these boards, we found micro- 
processor speed increases from two 
to more than eight times the speed of 
the 8088 in a stock PC but at best about 
a five times’ increase in actual 
throughput. Standard I/O devices 
provide the primary bottleneck. Be- 
cause of software enhancements, 
such as cache and RAM-disk pro- 
grams that come with most of the 
boards, you can achieve the actual 
throughput of an IBM PC/AT and 
greatly surpass the standard PC. We 
see these turbo boards as serious al- 
ternatives to an AT because they pro- 
vide the desired performance in- 
crease and save money—it’s much 
cheaper to upgrade your old PC or XT 
with one of these boards than to buy 
an AT, even one of the new, cheap 
AT clones. 

We tested two categories of 
boards—Intel 8086-based (or NEC V30 
compatible) and Intel 80286-based. 
The first group benchmarked very 
closely, and choosing a winner was 
difficult. 

All the installed 80286 boards per- 
formed consistently faster than a 
stock IBM PC/AT. For raw perfor- 
mance and overall throughput and 
compatibility, Orchid Technology’s 
PC Turbo 286 was a clear winner, far 


$2,395 (2 megabytes w/ViaNet 


Victor Technology 

980 El Pueblo Rd. 

Scotts Valley, CA 95066 
(408) 438-6680 

Price: $595 

Reader Service Number 49 


286 Speed Pack 

Classic Technology Corp. 
2090 Concourse Dr. 

San Jose, CA 95131 

(408) 434-9333 

Price: $995 

Reader Service Number 50 









surpassing the standard IBM PC/AT’s 
performance. It has lightning-fast 
screen I/O and a reasonable price for 
an AT alternative, and it fully sup- 
ports EMS. If price is the primary con- 
sideration, look at Victor Technolo- 
Sys SpeedPac 286. It can attain the 
speed of the AT without expensive 
memory replacement—its perfor- 
With public-domain cache and RAM- 
disk software, this board could pro- 
vide the throughput you’re looking 

for. | 
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(Listings begin on page 88.) 
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Listing One 


NOT3 


ONEP 


HLD3 
* 


DOUSE 


STAS 


CON7 


CUR7 


FORS 


STO 


CSTO 


50 


FDB HERE-6 
LDX SP 
LDA SP0,X 
COMA 

STA SP0,X 
INCX 

LDA SP0,X 
COMA 

STA SP0,X 
JMP NEXT 


FCB 2 

Le Salat She 
FD . NOT3-6 
IDX SP 
INCX 

LDA SPO,X 
ADD #1 
STA SP0,X 
LDX SP 


FCB 3 

FCC ‘HID' 
FDB ONEP-6 
LDA #HLD 


ADD #USER 
IDX SP 
DECX 

STA SPO,X 
CLRA 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 5 

FCC ‘STA’ 

FDB HLD3-6 
IDA #STATE 
BRA DOUSE 


FCB 7 

FCC ‘CGN* 
FDB STA5-6 
LDA #CONTEXT 
BRA DOUSE 


FCB 7 

FCC ‘CUR’ 
FDB CON7-6 
LDA #CURRENT 
BRA DOUSE 


FCB 5 

FCC ‘FOR’ 
FDB CUR7-6 
IDA #FORTH 
BRA DOUSE 


FCB. 1 

Poe * tt? 
FDB FORS-6 
IDX SP 
LDA SPO,X 
INCX 

STA LOAD+1 
LDA SPO,X 
INCX 

STA LOAD+2 
LDA SPO,X 
INCX 

STX SP 
CLRX 

JSR LOAD 
IDX SP 
LDA SPO,X 
INCX 

STX SP 
IDX #1 
JSR LOAD 
JMP NEXT 


FCB 2 

Foe), "GL 
FDB STO-6 
IDX SP 
LDA SPO,X 
INCX 

STA LOAD+1 


FORTH AT SEA 


(continued from July) 
Link to HERE 


1+ 
Link to NOT 


point to low byte 


now the high byte 


HLD 


Link. to-i4+ 
(fall through to DOUSE) 


Does the common part of the 
execution of a user variable 


STATE 


link to HLD 


CONTEXT 


link to STATE 


CURRENT 


link to CONTEXT 


FORTH 


link to CURRENT 


! 


link to FORTH 
move addr to Load 


now move data to addr 
high byte first 


now the low byte 


cf 


link to. ! 
move addr to Load 


COMA 


INCDP 


CCOMA 


DUP3 


PLSTO 


LDA SPO,X 


JMP NEXT 


FCB 1 
FCC c. 1 
FDB CSTO-6 


LDA DP 
ADC #0 
STA DP 
JMP NEXT 


FCB 2 

Fog. Cy: * 
FDB COMA-6 
LDA DP 
STA LOAD+1 
LDA DP+1 
STA LOAD+2 
LDX SP 
INCX 

LDA SPO,X 
INCX 

STX SP 
CLRX 

JSR LOAD 
IDA #1 
BRA INCDP 


FCB 3 

FCC ‘DUP’ 
FDB CCOMA-6 
IDX SP 
LDA SPO,X 
DECX 

DECX 

STA SPO,X 
LDX SP 
INCX 

LDA SPO,X 
DECX 
DECX 

STA SPO,X 
DECX 

STX SP 
JMP NEXT 


FCB 2 

POS Ra" 
FDB DUP3-6 
IDX SP 
LDA SPO,X 
INCX 

STA LOAD+1 
STA GET+1 
LDA SPO,X 
INCX 

STA LOAD+2 
STA GET+2 
STX SP 
IDX #1 
JSR GET 
IDX SP 
INCX 

ADD SPO,X 
IDX #1 
JSR LOAD 


drop high data byte 
and move low byte 


link to: Ci 
move DP to Load 


move data to DP 
high byte 


low byte 


bump DP 


move data to DP 
drop high byte 
get low byte 


bump DP by 1 


DUP 
link to C, 


get high byte 
and bump SP to point to new location 


then store it 
get low byte 
bump SP for it too 


and store it 
update SP 


+1 


link to DUP 
move Addr to Load and Get 


get low byte of addr data 


get low byte of number 


and save it back 
(continued on page 52} 
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pends on that last ouncé of speed, choose Wizard. 
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The following SIEVE benchmark was run without register vari- 
able declarations on an IBM/PC with 640K memory and an 8087. 


Exec Time Code Size EXE Size 


Wizard C 3.0 : 6.8 130 7,766 
Microsoft 11.5 186 7,018 
Lattice 11.8 164 20,068 






plus mixed model programming. 





of function calls. 





MSDOS and 8086 functions. 
8086, 8087, 80186 and 80286 hardware support. 
Full Library Source Code included with package. 






package available to create Intel Hex files. 
Fully ANSI compatible language features. 








Fast executable code, with multiple levels of optimization. 
Six memory Models, supporting up to 1 megabytye of code and data, 


Effective error diagnosis, including multiple source file cross-checking 


A comprehensive runtime library, including fully portable C functions 


ROM based application support, including a ROM development 





IZARO C 


The new Wizard C version 3.0 sets new records for all out speed! 
It leaves other C compilers in the dust! When your project de- 





“.«The compiler’s performance 
makes it very useful in serious 
software development.” 


PC Tech Journal 

January, 1986 

“We found that the support team at 

Wizard offered by far the best 

technical assistance....Wizard’s Rot 
the highest marks for support.” 












“The Wizard Compiler had 
excellent diagnostics; it would be 
easier writing portable code with it 
than with any other compiler we 
tested,” 








Dr. Dobb’s Journal 

August, 1985 

“..written by someone who has 

been in the business a while. This 

especially shows in the 
documentation.” 

Computer Language 

February, 1985 










For debugging, the compiler 
emits full Intel debugging in- 
formation including local sym- 
bol and type information. 


For stand-alone applications, 
we supply a ROM develop- 
ment package that carries 
your program all the way to 
Intel Hex files ready for a 
PROM burner. 


Wizard C $450.00 
ROM Development Package $350.00 
Combined $750.00 
Automatic Upgrade Program 
(annual fee) $100.00 


Make $150.00 
Math 87 Library 





WIZEARD 


SYSTEMS SOFTWARE, INC. 
11 Willow Court, Arlington, MA 02174 


(617) 641-2379 
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FORTH AT SEA 


Listing One (listing continued) 


The same for the high byte 
a Sah 


LDX SP 
ADC SPO,X 


INC SP update SP 


FCB 6 LATEST 


link to’ +! 
LAT6 JMP DOCOL 


FCB 5 ALLOT 


FDB LAT6-6 
ALLS JMP DOCOL 
FDB DP2 
FDB PLSTO 
FDB EXIT 


link to LATEST 


FCB 3 LIT 

roe. * LET” 

FDB ALLS-6 
LIT3 LDA IP 

STA GET+1 

LDA IP+1 

STA GET+2 

LDX #1 move low byte to stack 

JSR GET 

IDX SP 

DECX 

STA SPO,X 

STX SP 

CLRX and then the high byte 

JSR GET 

LDX SP 

DECX 

STA SPO,X 

STX SP 

IDA #2 now bump IP 

ADD IP+1 

STA IP+1 

CLRA 

ADC IP 

STA IP 

JMP NEXT 


move IP to Get 


QIMM LDX SP Tests for IMMEDIATE 
INCX using count byte 
LDA SPO,X from <FIND> 
TSTA 
BMI QID 
CLRA 
BRA QSKIP 
QID IDA #SFF 
QSKIP STA SPO,X 
DECX 
STA SPO,X 
JMP NEXT 


MESS FCB 67 
FCC 'RAFOS ' 
FCC ‘FORTH ' 
FEC *V1.0* 


FCB CR 
FCB LF 
FCC ‘A TEAM ROSSBY PRODUCTION' 


FCB CR 
FCB LF 
FCC '(C) EVERETT CARTER 1986' 


LOK FCB 3 


OK. Fee’* on The FORTH prompt 


DEFAULT OUTER INTERPRETER 


OUTER FDB COUS 
FDB TYPE 
FDB INLINE 
FDB DFND 
FDB ZBRAN 
FDB $O001E 


52 


COLD 


SDAT 


SREPT 


SREP2 


HCR 
LCR 
H1CR 


eC + + + 


FDB COMP 
FDB LIT3 
FDB COMA 
FDB BRAN 
FDB $FFC6 
FDB QUES 
FDB BRAN 
FDB SFFBA 


POWER ON RESET ROUTINE 


FCB 4 COLD 
Fcc: °COL" 
FDB LIT3-6 link to LIT 
BSET3 $05 
BSET3 PUT 
IDX #$3F 
LDA ROM, X 
STA 0,X 
DECX ~ 
CPX #$20 
BNE SDAT 
LDX #$80 Move the self-modifying code 
LDA ROM, X to its executable location 

STA 0,X (done in two steps to avoid the 
INCX CPUs stack: 40-7F) 

BNE SREPT 

CLRX 

LDA ROM+$100,X 
STA $100,X 
DECX 

BNE SREP2 


Move the default RAM data 


(moving 200 HEX bytes) 


Calculate the HIGH and LOW BYTES of OUTER 


EQU OUTER/$100*$100 
EQU OUTER-HO 
EQU OUTER/$100 


IDA #LO load the default 
STA START+1 Outer Interpreter 
LDA #HO1 into START 

STA START 


Calculate the HIGH and LOW BYTES of Latest entry 


EQU LATEST/$100*$100 
EQU LATEST-HCR 
EQU LATEST/$100 
LDA #H1CR Initialize FORTH 
STA USER+FORTH 

IDA #LCR 

STA USER+FORTH+1 


Calculate the HIGH and LOW BYTES of MESS 


EQU MESS/$100*$100 
EQU MESS-H 
EQU MESS/$100 


CLRX 

IDA #L Push start up message 
DECX 

STA SPO,X 

LDA #H1 

DECX 

STA SPO,X 

STX SP Initialize Stack Pointer 


(continued on page 54) 
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A MEGABYTE FOR DOS! 





MicroWay is the world’s leading retait 
er of 8087s and high performance PC 
upgrades. We stock a complete selec- 
tion of 8087s that run from 5 to 12 
MHz All of our coprocessors are 
shipped with a diagnostic disk and the 
best warranty in the business — one 
year! We also offer daughterboards for 
socketless computers (NEC PC) and 
287Turbo which increases the clock 
speed of the 80287 from 4 to 10 MHz 
Our NUMBER SMASHER/ECM*” runs 
at 12 MHz with a megabyte of RAM 
and achieves a throughput of .1 mega- 
flops with 87 BASIC/INLINE, Intel For- 


SPEED UP YOUR AT 
OR AT COMPATIBLE 
| WITH 287TURBO™ 10 MHz 





A2D-160™ MicroWay’s Data Acquisition Board 
performs 160,000 12 bit Analog to Digital conver- 
sions per second! Includes software drivers. The 
fastest 12 bit A to D board available. For the IBM 

XT and compatibles.................. $1295 


87SFL™ MicroWay’s Scientific Function Li- 
brary contains 170 scientific and engineering func- 
tions. Callable from most 8087 compatible com- 
pilers ... First Language $250; Additional $100. 


MATRIXPAK™ manages a MEGABYTE! 
Written in assembly language, our runtime pack- 
age accurately manipulates large matrices at very 
fast speeds. Includes matrix inversion and the 
solution of simultaneous linear equations. Call 
able from RM or MS Fortran, MS Assembler, or 
87BASIC/INLINE..................... each $99 


S7FET™ written in assembly language, per- 
forms Forward and Inverse FFTs on real and contr 
plex arrays which occupy up to 512 Kbytes of 
RAM. Also does convolutions, auto correlations, 
hamming, complex vector multiplication, and com- 
plex to radial conversions. Callable from most 
8087 compatible compilers............... $200 


S7FFT-2™ performs two-dimensional FFTs 
Ideal for image processing Requires 87FFT $100 


FASTBREAK™ employs the 8087 to in- 


crease the speed of Lotus 1-2-3™ Version 1A or 
BPN ED WI Vics vite dace dn uae see $79 


87 Verify” For users who have tobe absolutely 
sure of their results! This background task period 
ically performs an 8087 accuracy and stress 


De tik hee. xis 2 xeon aba 2 Recent eae $49 
Microsoft Fortran V3.31.................. $209 
IBM Professional Fortran ................. $565 
Ryan-McFarland FortranV 2.0............ $399 
NAG Fortran Library ...................... $300 
Grafmatic for Fortran or Pascal............ $125 
MultiHalo Graphics (1 language).......... $189 
LABTECH NOTEBOOK................... $745 


P.O. Box 79 
Kingston, Mass. 
02364 USA 
(617) 746-7341 


Micro 


Way 





tran, or Microsoft Fortran. Software re- 
viewers consistently cite MicroWay 
software and 8087 expertise as the 
bestin the industry! Our customers fre- 
quently write to thank us for recom- 
mending the correct software and 
hardware to meet their specific needs. 
They also thank us for our same-day 
shipping! In addition to our own prod- 
ucts which support the 8087 and 
80287, we stock the largest supply of 
specialized software available For 
more information call us at 


617-746-7341 





Mega Page™ The only intel-Lotus EMS board 
which comes with two megabytes of cootFrunning, 
low power drain CMOS RAM installed Includes 
RAM disk, print spooler, disk cache, and EMS driv- 
ers. For the IBM PC, XT & compatibles... - $549 


MegaPage AT/ECC™ EmScardforthe PC 
AT and compatibles includes Error Correction Cir- 
cuitry. With ECC, 11 RAM chips cover 256K so the 
user never encounters RAM errors. With 1 megabyte 
CMOS $799; with 3 megabytes CMOS $1295. 
Optional serial/parallel daughterboard..... $95. 


DFixer™ Our disk utility which thoroughly 
checks PC or AT hard disks for bad sectors and 
updates the MS DOS file allocation table accord 
ingly. Solves the AT hard disk problem! ... $149 


DOptimizer™ Optimizes the way your hard 
disk or floppy stores its files. Speeds up accesses 
by recombining fragmented files............ $49 


DCache™ Our disk caching software speeds 
up your I/O by storing repetitively used tracks in 
memory. The amount of memory used can be 
selected in 64 Kbyte banks ................. $49 


87MACRO/DEBUG™ contains all the 
pieces needed for writing 8087/80287 assembly 
code & MicroWay’s 87DEBUG debugger. $199 


OBJ —ASM"” A multipass object module trans- 
lator and disassembler. Produces assembly lan- 
guage listings which include public symbols, ex- 
ternal symbols and labels commented with cross 
references. Ideal for patching object modules for 
which source is not available.............. $200 


87BASIC™ includes patches to the IBM BASIC 
or MS Quick BASIC Compiler for USER TRANS 
PARENT 8087 support Provides super fast per- 
formance for all numeric operations including trig- 
onometrics, transcendentals, addition, subtrac- 
tion, multiplication, and division...... each $150 


87BASIC/INLINE™ converts the output of 
the IBM BASIC Compiler into optimized 8087 
inline code which executes up to seven times fast- 
er than 87BASIC. Supports separately compiled 
inline subroutines which are located in their own 
segments and can contain up to 64 Kbytes of 
code. This allows programs greater than 128K! 
Requires the IBM BASIC Compiler Version 1 and 
a Macro Assembler. Includes 87BASIC ... $200 


MICROWAY UDI runs RTOS or RMX com 
prers under DOS. 5733s $300 


Yficro 
8087 Support 


For the IBM PC, PC XT, PC AT and Compatibles. 





NUMBER SMASHER/ECM™ 
THE FASTEST ACCELERATOR 
CARD AVAILABLE 
gives you 12 MHz speed in two modes: 
704K or one megabyte of “Extended 
Conventional Memory.” MEGASWITCH 
MMU and MegaDOS software make it 
possible to run DOS applications with 
up to 1015K using PC compilers, Auto- 
CAD and Lotus 1-2-3. Does not re 
quire EMS software. Totally compat- 
ible. Priced from $599 with 512K to 
$1199 for complete package. Optior- 

al 8087-12... $295 








8087 UPGRADES 


All MicroWay 8087s include a one year warranty, 
complete MicroWay Test Program and accurate 
installation instructions. 


80875 MHz... $109 
For the IBM PC, XT and compatibles. 
8087-28 MHz..._. $149 


For Wang, AT&T, DeskPro, NEC, Leading Edge. 


80287-35 MHz... $179 
80287-6 6 MHz... $229 


For 8 MHz AT compatibles. 


80287-8 8 MHz... $295 


For the 8 MHz 80286 accelerator cards. 


NEC V20, V30............... $16, $30 
64K RAM Set 150ns.......... $10 
256K RAM Set 150ns........ $29 
256K RAM Set 120ns.........___. $39 
128K RAM Set PCAT......_. $49 


287Turbo”™ 10 MHz if you own an AT, 
Deskpro 286 or AT compatible, this is the card you 
need to get reasonable numeric performance. It 
plugs into your 80287 socket and includes a spe 
Cially driven 10 MHz 80287. The card comes in 
three configurations. The IBM AT version includes 
a hardware RESET button................ $450 


287Turbo8 MHz................... $369 


87/88Turbo” isa stubby card which includes 
a clock calendar and a speed controller which 
changes the speed of your motherboard from 4.77 
to 7.4 MHz Its use requires your PC to have a 
socketed 8284. Typical speed increase is 1.6 to 
2.0. The card overcomes slow hardware by slow- 
ing up only when such devices are accessed and 
running at full speed otherwise ........... $149 
CMMI BO 2 Sn tw oi bons Sh ie $149 


286 TurboCache™ This new MicroWay ac- 
celerator uses 8K of cache memory and 80286/ 
80287 processors to provide an average speed 
increase of 3:1 for most programs. Call for 
specifications and benchmarks ........... $595 


Call for our complete catalog of 
software which supports the 8087. 
In London, please phone 223-7762 





FORTH AT SEA 


Listing One (listing cakitaaea) 


. WARM 


SWAP 


SPSTO 


Q + + + FF FF HO OF 


ETC 


GETCHAR 


GETC4 


GETC3 
GETC2 


GETC7 
GETC6 


+ + + + OF FF 


54 


LDA #$80 

STA TIB+S$7E 
STA TIB+$7F 
CLR USER+STATE 
CLR USER+STATE+1 
CLR RP 

JSR CRLF 

LDA START 

STA IP 

IDA START+1 
STA IP+1 

JMP NEXT 


FCB 4 
'"SwA! 
FDB COLD-6 
LDX SP 

LDA SPO,X 


STA PH 
LDA SPO,X 
INCX 

STA PL 
LDA SPO,X 
INCX 
STA QH 
LDA SPO,X 
STA QL 
LDA PL 
STA SP0,X 
LDA PH 
DECX 

STA SPO,X 
IDA QL 
DECX . 
STA SPO,X 
LDA QH 
DECX 

STA SPO,X 
UMP NEXT 


FCB 3 

FCC *SPt* 
FDB SWAP-6 
CLR SP 

JMP NEXT 


SES PA bs 370 


Initialize input terminators 


Put system in EXECUTION state 
Initialize Return Stack pointer 


Load the IP 


GO ss 


SWAP 


link to COLD 


SP! 


link to SWAP 


ROUTE RSS 


GETCHAR/GETC --- GET A CHARACTER FROM THE TERMINAL 


A GETS THE CHARACTER TYPED, X IS UNCHANGED 


STX XTEMP 
EQU GETC 
LDA #8 
STA COUNT 
CLI 

SET 


BRSET2 PUT,GETC4 


LDA PUT 

AND #!11 

TAX 

LDX DELAYS, X 
LDA #4 

DECA 

BNE GETC2 
TSTA 

DECK 

BNE GETC3 


load Baud delay 


BRSET2 PUT,GETC4 


TST ,X 
TST ,X 
BSR . DELAY 


BRCLR2 PUT, GETC6 


TST, X 

ROR CHAR 
DEC COUNT 
BNE GETC7 
CLE * , 

BSR DELAY 
LDA CHAR 
AND #S7F 
LDX XTEMP 
RTS 


Mask the eighth bit. 


OUTCHAR/PUTC --- PRINT A ON THE TERMINAL 


X AND A UNCHANGED 


PUTC 
OUTCHAR 


PUTCS 
PUTC2 


PUTC3 


PUTC4 


+ + + OF 


* 


DELAY 


DEL3 


DEL2 


DELAYS 


CRLF 


STA CHAR 
EQU PUTC 
STA ATEMP 
STX XTEMP 
LDA #9 
STA COUNT 
CLRX 

Cie 

SEI 

BRA PUTC2 
ROR CHAR 
BCC PUTC3 
BSET3 PUT 
BRA PUTC4 
BCLR3 PUT 
BRA PUTC4 
JSR DELAY, X 
DEC COUNT 
BNE PUTCS 
BSET2 PUT 
BSET3 PUT 
CLI 

BSR DELAY 
LDX XTEMP 
LDA ATEMP 
RTS 


WAIT --- PRECISE DELAY 


A AND X ARE ZERO AT EXIT. 


LDA #1 
EQU WAIT 
AND #!11 
TAX 

LDX DELAYS, X 
LDA #$F9 
ADD #$08 
DECA 

BNE DEL2 
TSTX 
BSET1 PUT 
DECX 

BNE DEL3 
LDA #0 
RTS 


FCB $20 
FCB $08 
FCB $01 


LDA #CR 

JSR OUTCHAR 
IDA #LF 

JSR OUTCHAR 
RTS 


FCB 2 


FCC 


"CR ft 


FDB SPSTO-6 


CR2 


BSR CRLF 


JMP NEXT 


FCB 6 


‘CRE' 


FDB CR2-6 


JMP DOCOL 


FDB BL2 

FDB WORD 
FDB LIT3 
FDB #04 

FDB ALLS 
FDB LAT6 
FDB COMA 
FDB CURT 
FDB FTCH 
FDB STO 

FDB EXIT 


+ ++ 


ADJUST FOR FIRST TIME 


300 BAUD 
1200 BAUD 
9600 BAUD 


CR 


link to SP! 


CREATE 


link to CR 


He KKH KH IK IH HHI II KIKI AIHA IIIA AAAI AAA IAAI A AKI AAAI KEK KEE 


* 


- INTERRUPT VECTORS 


* 


* 


ORG MEMSIZ-10 
FDB 
FDB 
FDB 
FDB 
FDB 


END 


WTIME 
WIIME+3 
WTIME+6 
WARM 
COLD 


START OF VECTORS 


TIMER IRQ VECTOR FROM WAIT STATE 
ALTERNATE TIMER VECTOR 
IRQ VECTOR. 


SWI TO FORTH INITIALIZATION POINT 
POWER ON VECTOR 


End Listing 
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IT'S NO MERE RAMDISK 
: SemiDisk has been leading the way for 
Disk Emulators since their inception. 


If you've seen RAMdisks you know 
_ what it’s like to load programs in an 


instant, and read or write files without 
delay. Unlike alternatives, the 


semiDisk offers up to 8 megabytes of 


instant-access storage while leaving 
your computer's main memory free 
for what it does best - computing! 


..KEEP A GRIP ON DATA 
_ Go ahead, turn off your computer. 


Take a vacation. With the battery 
backup option, your valuable data will 


be there in the morning | even if 2... 
TRS. 80 I, 12, 16 


aren't. You'll sleep better knowing not 
even a 5 hour blackout will sabotage 


- your files. 


NEW LOWER SEMIDISK 
PRICES THAT WON’T 


SNOW YOU UNDER 


512K 
IBM PC, XT, AT $495 
Epson QX-10 $595 
S-100, SemiDisk Il $799 
$595 


as 





LETTERS 


Listing One (text begins on page 10.) 


Program Squareroot; 52.2 
42 Q9 move.1 d2,d0 ;guessl to work register 
Squareroot algorithm & testprogram; DDJ March 1986, p.122 43 asl.] #1,d0 sguessl * 2 
44 emp.1 d3,d0 ;compare with guess2 
Features: - sqrt routine in 68000 machine language; 45 bge Ql1 ;branch if guessl * 2 >= guess2 
- long integer loopcount; 46 asl.l #1,d2 sguessl := guessl * 2 
} 47 asr.l #1,d3 sguess2 := guess2 / 2 
48 bra Q9 
const { Iteration count for test loop } 49 * 
NNR = 6£4;{ real, for printing of statistics } SO * Now do divisions 
NNS = '60000'; { string, for assignment to long integer } 51 * 
$2 Qll 
type long = record 53 Ql3 add. a3, a2 sguess := guessl + guess2 
low,high : integer; 54 asr.1l #1,d2 iguessl := (guessl+guess2)/2 
end; 55 move.1 dil, do ;Mumber to work register 
56 divs d2, a0 snumber / guess] 
var finished : boolean; { flag for loop } 57 move.w a0, d3 ;guess2 := number/guessl 
number, limit : long; { loop count, loop limit } 58 ext .1 a3 extend to 32 bits 
sqrrt, { square root result } 59 move.1l d2,d0 ;guessl to work register 
sqrrto, { last displayed square root } 60 sub.1l a3, d0 ;gquessl-guess2 
t1,t2 : integer: { parameters for system time } 61 move.1 do, d4 ;error := guessl-guess2 
timel, time2 : real; { start, end time } 62 ble Ql4 :if error <= 0 
63 bra Q13 sloop back if error > 0 
{ --- ROUTINES FOR LONG (32-BIT) INTEGER SUPPORT --- } 64 Q14 move.1 d2,d0 sresult := guessl 
65 bra Q1s 
procedure lg clr(var 1:long):; external; 66 Q8 moveg #0, d0 sresult := 0 
{ Clears long integer 1 } 67 * 
68 * Set result & return to caller 
procedure lg asn_DU(s:string; var l:long); external; 69 * 
{ Assigns the unsigned decimal string s to the long integer 1 } 70 Q15 movea.w (sp)+,al iget “result 
RI move.wW dO, (al) :store result 
procedure lg incl(var 1:long):; external; T2 * 
{ Increments long integer 1 by 1 } 73 addq.1l #2, sp ;drop “number 
74 jmp (a0) ;return to caller 
procedure lg grt(a,b:long: var flag:boolean); external; 75 * 
{ Compares long integers a and b and assign result to flag } 76 -nolist 
ms 5 x --- e e 
{ SQUAREROOT ROUTINE } End Listing Two 


procedure sqrt (number:long; var result:integer); external; 
{ Calculates square root of ‘number' and returns it in ‘result’ } 


ssi aader's Listing Three 
sqrrto := 100; 
lg_clr (number); { number := 0 } 


lg_asn_DU(NNS, limit); {limit := NNS } 
finished := false; 


Squareroot algorithm; DDJ March 1986, p.122 
68000 assembly language version 


write('Start...'); 


Features: - hand-optimized machine code; 
time(tl,t2):; timel := t2: { get start time } 


WOMAIHUWN PWNPe 
> ee ee we he DH 


while not finished do { calculate sqrt(number) } procedure sqrt (number:integer; var result:integer): 


begin 10 * 
sqrt (number, sqrrt): * Calculates square root of ‘number' and returns it in ‘result'; 
{ * 
if sqrrt <> sqrrto 13.* 
then begin 14 * Register usage: 
write (‘Number = ',number.high:6,' | ‘,number.low:6); ne ee 
writeln(' --- Sqrt = ',sqrrt:4); 16 * 
sqrrto := sqrrt: 17 * DO : work register, error AO : “result 
end: 18 * Di : number Al : “number 
} 19 * D2 : guessl,result 
1g incl (number); { number := number + 1 } 20 * D3 : guess2 
lg grt (number, limit, finished) ; { finished := (number > Limit} } oe . D4 : temporary storage for return address 
end; ” a 
time(tl,t2); time2 := t2; { get end time } seca aDEPe aE © pe MAT SEOs, PAESRa VETS 
writeln('finished !'); writeln; 26 * Get parameters from stack 
writeln('Time: ', (time2-timel)/60,' seconds’) 27 * 
oe moveg #0,d2 zresult := 0 --- remove for timing 
end. * 
e . 30 move.1 (sp)+,d4 ;get return address 
End Listing One at move.w {sp)+,a0 ;get “result 
32 move.w (sp)+t,al sget “number 
= 33 move.1 (al),dl sget mumber 
Listing Two ae 
35 * bra Q15 ;--- for timing only 


Ww 
So: 
» 


beq Q1s :if number=0, then result=0 
Squareroot algorithm; DDJ March 1986, p.122 


» 
* Set initial values 
68000 assembly language version . 


Q? moveg #1,da2 :guessl := 1 


Features: - equivalent to compiler-generated code: move.1 dl,d3 ;guess2 := number 


x 


* Do shifts until guessl ~ guess2 
x 


Wed nULWNHE 
> th Re wh Oe 


procedure sqrt (number:long; var result:integer):; 


37 
38 
39 
40 
41 
42 
43 
44 
45 
10 * ‘ 46 Q9 asl.l #1,d2 zguess] := guessl * 2 
11 * Calculates integer square root of ‘number’ and returns it in ‘result’; 47 cmp. 1 d3, 42 compare with guess2 
12 * 48 bge Qli ;branch if guessl * 2 >= guess2 
13 * 49 asr.1 #1,d3 sguess2 := guess2 / 2 
14 * Register usage: 50 bra Q9 
1§ *& -------------- 51 * 
16 * ' $2 Qll asr.l #1,d2 sadjust guessl 
17 * DO : word register AQ : parameter stack pointer 53% 
18 * Dl : number Al : scratch register 54 * Now do divisions 
19 * D2 : guessl Som 
20 * D3 : guess2 56 Q13 add.1 d3,d2 zguessl := guessl + guess2 
21 * D4 : error 57 asr.l #1,d2 zguessl := (guessl+guess2)/2 
22 * $8 move.1 dl,d3 zguess2 := number 
23 proc sqrt,2 32 words of parameters $9 divs d2,da3 ;guess2 := number / guessl 
24 * 60 ext.1 d3 extend guess2 to 32 bits 
25 * Get parameters rrom stack 61 move.l d2,d0 ;guessl to work register 
26 * 62 sub.1 d3,d0 error := guessl - guess2 
aa move.1l (sp)+,a0 ;get return address 63 bgt Q13 sloop back if error > 0 
28 move.w 2(sp),al ;get “number 64 * 
29 move.1 (al),dl zget number 65 * Store result and return to caller 
30..% 66 * 
31 * bra Q15 ;--- for timing only 67 G15 move .w d2, (a0) ;store result 
a2. 2 68 * 
33 beq Q8 :if number=0, skip 69 movea.l1 4,a0 move return address to adr-reg 
34 * 70 jmp (a0) ;return to caller 
35 * Set initial values 71 * 
36 --* 72 -holist . s 
37’'QF moveq #1,d2 zguessl := 1 End Listing Three 
38 move.1 dl,d3 s;guess2 := number 
a94* , 
40 * Do shifts until guessl ~ guess2 (continued ee 58) 
56 
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Western Computer 286 Turbo™ 
Standard Features 

¢ IBM PC/AT Compatible with 512K RAM 

e Up to 1 MB of system memory on the main board 
¢ Switch selectable 8 or 10 MHz operation with one 
wait state on memory access (80286-10) 

e One parallel port/one serial port and Clock/ 
Calendar on main board 

¢ Optional Serial Port on board 

¢ Mass storage options from 20 to 140 MB Hard 
Disk Drives and 20 to 60 MB tape backup systems 
e EGA video options available for CAD/CAM, 
word processing, etc.... 

e One year factory warranty 


Western Computer has high quality computers at 
very competitive quantity pricing. 


Western Computer 
17781 MITCHELL STREET, IRVINE, CA 92714 U.S.A. 
PHONE (714) 553-1611 
Customer Service Only (714) 553-1705 
TELEX 7566731 - Answer Back WESTERN COMP 
FAX (714) 553-0236 


Western Computer 


Australiasia Limited 
4-82 ABBOT STREET 
ASCOT BRISBA 
QUEENSLAND, AUSTRALIA 
4007 - #(07) 268-6589 
Telex: AA144746 
FAX: #(07) 2685256 
Answer Back MCGUIR 





“For High Technology and Performance’ 





Western Computer XT Turbo™ 


Standard Features 

e IBM PC/XT compatible with 640K RAM on main 
board 

° 4.77 or 8 MHz oper- 
ation (CPU board 
made in U.S.A.) 

e Two 360K Floppy 
Disk Drives 

e Hercules compat- 
ible monochrome 
graphics controller 
(720 x 350) or IBM 
compatible — color 
graphics adapter (320 
x 200 - four colors or 
640 x 200 - two colors) and parallel printer port 
¢ Monochrome monitor (Composite or TTL input) 
¢ IBM PC/AT style keyboard 

¢ Various hard disk drive and tape backup options 
available 

e One Year Factory Warranty 





European Head Office 


BELECTRONIC SA, 

RUE CENTRALE 43 
CH-1880-BEX, SWITZERLAND 
PHONE (025) 631250 
TELEX 456 168 
Answer Back. BELE CH. 





IBM* , IBM PC* , IBM AT® are trademarks of International Business Machines @rels elec le(elee 


LETTERS 


Listing Four 


(Listing continued, text begins on page 10.) 


Listing Five 


djnz: * 10 djnze 
move.b (pseudopc) +, dO * dO <-- distance 
aoe, subq.b #1,regb *d 
2 * Squareroot algorithm; DDJ November 1985, p.88 : 9 (regs) ec b 
36 beq djnz2 * loop count expired 
4 * 68000 assembly language ext .w do * to word 
5 * 
6 * procedure sqrt (number:long; var result:integer);: ext .1 do * to long 
a add.1 dO, pseudopc * add dis ce 
8 * Calculates the integer squareroot of ‘number’ and returns it in ‘result’ djnz2: eP = = = 
9. % : 
i : Register usage NEXT 
{Pav acme sere jx= * 18 jre 
se ove. t * <-- 
14 * DO : number AQ : scratch, for pointers move .b (pseudopc) +, dO do distance 
15 * Dl : error term Al : scratch, for pointers ext .w do * to word 
16 * D2 : estimate x 
17 * D3 : corrector term ext.1 2 to long 
18 * D4 : loop counter add.l dC, pseudopc * add distance 
eae NEXT 
21 . proc sqrt, 2 32 words of parameters jrnz: * 20 jr nz,e 
22 * ; x NS 
23 eas Sine ab’ peek Seana move .b (pseudopc) +, d0 ddQ < distance 
24 move.1 (a0),d0 zget number into d0 btst #6, regf * if Z bit set 
25 * ‘* 
26 * bra exit ;--- for timing only ks aor ‘ pee a branch 
“1S ext .W Oo wor 
28 moveg #16-1,d4 ;set loopcount,16*2 = 32 bits ‘ he 
29 moveg #0,dl ;Cclear error term eat .1 do to long 
30 moveq #0,d2 ;clear estimate add.l dO, pseudopc * add distance 
J: 2 . 
32 * Calculate squareroot jrnz2: NEXT 
33°* 
34 sqrtl asl.1l #1,d0 zget 2 leading bits, a * 
35 roxl.1l #1,dl zone at a time, into jrz: 28 jr z,e 
36 asl.1 #1,40 ;the error term move.b (pseudopc) +, dO * dO <-- distance 
37 roxl.l #1,dl a * = 
38 asl.l #1,d2 sestimate * 2 = gas f < Z ey 
39 move.l1 d2,d3 q A en no branc 
hs eat e ri ;corrector = 2 * new estimate ext .w do * to word 
42 bls sqrt2 zbranch if error ee oreeer ce ext.l ao * to long 
43 addq.1l sotherwise, add low bit to est te 2 
44 addq.1 21.43 add.l dO, pseudopc add distance 
45 sub.1 d3,dl sand calculate new error term 4rt2: 
46 * 
47 sqrt2 dbra d4,sqrtl ;do all 16 bit-pairs NEXT 
oes jrnc: *: 30 jr nc,e 
49 * Set result 6 return to caller move.b (pseudopc) + do * dQ <-- distance 
50 * . ’ 
So exit move.l et we Seca ae btst #0, regf * At C bDit« set 
move.w sp)t+,a ;get “resu 
53 move.w d2, (al) store integer result bne jrnc2 * then no branch 
$4 addq.1l #2,6p ;drop en cis ext.w do * to word 
55 a0) zsreturn to caller 
56 * imp ;' ext .1 do * to long 
$7 -nolist add.1 dO, pseudopc * add distance 


End Listing Four (continued on page 60) 


Power Tools for 
system builders™ 


Relocating Macro 
Assemblers 


e Z80 e NSC800 ¢ 8085 © HD64180 


Call today for our free catalog of design aids, 
compilers, libraries, debuggers, and support 
tools for Apple and IBM micro computers. The 
Power Tools catalog includes product descrip- 
tions, warranty and license terms, and all the 
information you need to make an intelligent pur- 
chase decision. 


What is your turnaround 
time? Eliminate this 
dilemma with the fastest 
most powerful assemblers 
on the market. 


@ 32 significant chars. on 3 
externals ‘ET 

e math on externals e M80 Macros 

e T-states in listing e M80 Pseudo-ops 

® jocal labels e tables overflow to disk 

e full drive/user ® recommend JR over JP 


support 
ae Z80 W/40 K TPA, CS 1O%5 
—— 3 LR_Systems 


TSF offers technical support, competitive pric- 
ing, free UPS shipping on orders over $100, anda 
reasonable return policy. Visa, MasterCard, and 
American Express accepted without surcharge. 
TSF helps you get your job done. 





Sample Prices: 


MS Quick Basic $49.00 
Periscope II $129.00 

DS Backup $64.95 

10 Diskette Mailers $4.95 
Gimpel PC Lint $139.00 
PCMacBasic $100.00 


Call Toll Free 
24 hrs a day/7 days a week 


Ask For Operator 2053 


800-543-6277 
Calif: 800-368-7600 


¢ Dept. C-2 ¢ 649 Mission Street 
e San Francisco « CA 94105 
e (415) 957-0111 


The Software Family™ 


CP/M 2.2 or greater 
1622 N. Main St., Butler, PA 16001 
(800) 833-3061 (412) 282-0864 





Circle no. 78 on reader service card. Circle no. 230 on reader service card. 
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wa FEATURES IN LATEST RELEASE 


For over six years VEDIT has been the choice of 
professionals who demand the most powerful ed- 
iting software available. CompuView has once 
again enhanced this power with the latest VEDIT 
PLUS - you can now open windows to simultane- 
ously edit several files, access editing functions 
with pop-up menus, use keystroke macros to 
speed editing and run other Programs within 
VEDIT PLUS. 


Whether your needs are program development, 
technical writing or word processing, VEDIT 
PLUS is your answer. VEDIT PLUS is simple 
enough to learn for the novice, yet has the speed, 
flexibility and power to Satisfy the most demand- 
ing Computer professional. Its powerful macro 
programming language helps you eliminate re- 
petitive editing tasks. 


If you take your editing seriously, you need VEDIT 
PLUS. With over 40,000 users, you can dependon 
VEDIT PLUS to perform consistently and reliably. 
As have GE, EDS, U.S. Navy, GM, Sperry and 
many others. Available for MS-DOS, PCDOS. 
CP/M-86 and CP/M-80. List price $185. 


‘To sum things up, VEDIT PLUS is a small, fast, 
sophisticated editor with a wealth of features 
and a good macro language. It offers many 
rewards for the dedicated programmer.’ 
Computer Language, Chris Wolf, Scott 
Lewis, Mark Gayman 6/86 


VEDIT PLUS is a wholly remarkable program: 
blindingly fast, extremely powerful, and highly 
flexible.’ 

Profiles Magazine, Robert Lavenda 4/86 


VEDIT and CompuvView are registered trademarks of CompuView Products, Inc. MS-DOS is 
a registered trademark of Microsoft. CP/M is a registered trademark of Digital Research. 








MULTIPLE 
WINDOWS 


POP-UP 
MENUS 


KEYSTROKE 
MACROS — 


EXECUTE 
DOS 
PROGRAMS 





VEDIT PLUS FEATURES 


¢ Simultaneously edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual’ disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname and CP/M user number support. 

¢ Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 text registers. 

e Customization - determine your own keyboard layout, create your 
own editing functions, support any screen size, any CRT. 

¢ Optimized for IBM PC/XT/AT. Also 132 column & up to 70 lines. 


EASY TO USE 


e Interactive on-line help is user changeable and expandable. 

e On-line integer calculator (also algebraic expressions). 

@ Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I or PASCAL. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language la- 
bels, opcodes, operands with comments unchanged. 

¢ Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e¢ Word Wrap and paragraph formatting at adjustable margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

e Convert WordStar and mainframe files. 

e Print any portion of file; separate printer margins. 


MACRO PROGRAMMING LANGUAGE 


e ‘If-then-else’, looping, testing, branching, user prompts keyboard 
input, 17 bit algebraic expressions, variables. 

e CRT emulation within windows, Forms entry. 

e Simplifies complex text processing, formatting, conversions and 
translations. 

¢ Complete TECO capability. 

e Free macros: e Full screen file compare/merge e Sort mailing lists 
e Print Formatter e Main menu 








CompuView 


1955 Pauline Blvd., Ann Arbor, MI 48103 (313) 996-1299, TELEX 701821 


WordStar is a registered trademark of MicroPro. 


Circle no. 122 on reader service card. 











LETTERS 


Listing Five (Listing continued, text begins on page 10.) 


FEANGZS 
NEXT 
sre * 38 jr-c,e 
move.b (pseudopc) +, dO * dO <-- distance 
btst #0,regf x if ¢ bit’ reset 
beq jrc2 * then no branch 
ext .w do * to word 
ext.1l do * to long 
add.1l dO, pseudopc * add distance 
49623 
NEXT 
End Listing Five 
Listing Six 
lew ©. Ceara Ff i= Inm 5-27-86 - fev. a7 
2 
3. /* line drawing routine using Bresenham's algorithm. */ 
4 
5 
6 c draw (xl, yl, x2, y2, color) 
Tine at, 91, ale Vee COLOE; 
8 
oe 


10 int “ainel, in¢e2, ines, 
Ue) Lie “Ae os, || 9. aks Oe 


xend, yend; 


rz 

13 dx = abs (x2 - x1); 
14 dy = abs (y2 - yl); 
15 if (dy <= dx) 

16 { 

Lid 15° (RES HZ) 

18 { 

19 xX = X2; 

20 y = y2; 

21 xend = xl; 
22 dy = yl - y2; 
23 } 


68020 and 68881 


Develooment today 


Just plugs into or 
clips onto any 68000 


68020 and 68881 
Take full advantage of the 
68020. The new 128K 
ROMs from Apple and our 
68020 board will give you a 
complete 68020 work station. 














Macintosh 
20 Megabyte 
SCSI Hard Drive. 


$795 


68026 aid -68981 DOIG. ccc savipssinceciswtercews $1295 
Macintosh Expansion BusS..................sssseseeees $195 
Plage: —-Elgatrin iF Bitccy ccsae tise pecssnnardedcecynendens $49 
FROM: SHON DOGG vc. cccessrentnccdxe cede scevennsnctyotanesd $79 
512K RAM expansion Kits..............ceeceeeee ceedae $89 


(800) 826-5178 


(602) 884 - 7402 
SPECTRA P.O.Box 41795, Tucson,AZ.85717 
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60 


24 else 

25 { 

26 Soa 2 

27 ys -yit 

28 xend = x2; 

29 dy = y2 - yl; 


Ww 
oO 


31 incl 
32 inc2 


dy << 1; 

(dy - dx) << 1; 

33 inc3 (dy + dx) << l; 

34 d = (dy >= 0) ? incl - dxsincl + dx; 
35 while (x < xend) 

36 { 

37 pevwd (y, x, color); 
38 xt++; 

39 if (d >= Q) 

40 { 

41 if (dy <= 0) 
42 d += incl; 
43 else 

44 { 

45 ¥irs 

46 d += inc2; 
47 } 

48 } 

49 else 

50 { 

51 if (dy >= 0) 
52 d += incl; 
53 else 

54 { 

55 Ven e 

56 a+ ines 
57 } 


/* or whatever point plotting */ 
/* function you have handy... */ 


60 } 

61 else 

62 { 

63 if (yl > y2) 

64 ( 

65 y = y2; 

66 X = X2; 

67 yend = yl; 

68 ax = xl = x2; 


70 else 


vi> 

xr 

74 yend = y2 

q9 ax = x2 - x17 


~ 
N 
xe 


"oil 


~~ 
oN 
— 


77 incl 
78 inc2 (dx - dy) << 1; 

79 inc3 (dx + dy) << 1; 

80 G = {dx >= 0). ?-incl =- dysincl + dy; 
81 while (y < yend) 


Gk xc 


Oe a 


82 { 

83 pevwd (y, x, color); 
84 ytt; 

85 if (d >= 0) 

86 { 

87 if (dx <= 0) 
88 d += incl; 
89 else 

90 { 

91 X43 

92 d += inc2; 
93 } 

94 } 

95 else 

96 { 

97 if (dx >= 0) 
98 d += incl; 
99 else 

100 { 

101 x--; 

102 d += inc3; 
103 } 

104 } 

105 } 

106 } 

107 pcvwd (y, xX, color); 
108 } 

109 


End Listings 
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C Bricklin Run 
That's right. Compilable C code created directly from 
each and every screen you produce using Dan 


Bricklin’s Demo Program. And the procedure is as 
simple as Dick and Jane. Make C-scape your primer. 





A Primer for Modern Times, or How to Use C-scape to 
Turn Dan Bricklin’s Demo Screens into C Code: 


Jane writes software. Dick is Jane’s client. Dick 
wants his software yesterday. Jane uses Dan Bricklin’s 
Demo Program to prototype Dick’s software. That makes 


Dick snd Jans hace ©) scrolling © colors 

Now Dick wants the real thing. Jane uses C-scape’s ©) full type support © completely definable 
demo&gc utility to turn Bricklin’s screens into C code © fully definabl keys 
with text, menus, input fields, and colors. Next Jane so Tully aetinabie 


links with C-scape’s library to add scrolling and type validation © full screen I/O support 


support. 


Jane’s program runs. Dick changes specs. Jane fixes 
the code easily with C-scape. See Dick smile. Dick is one ; 
happy client. © Lotus-like and ©) source code included 
pull-down menus 


d 


fields, menus, ©) flexible, easy to learn 
prompts, and text and use 


Look at C-scape. C Bricklin run. See productivity soar. 






30-day guarantee: Try C-scape for 30 days and see how it simplifies your development process. Following registration 
you'll get full source code and support. No run-time license, no royalties. We’re developers, too. We know your needs. 


$149.00 C-scape (Lattice 3.0/Microsoft 3.0; others call) 
$219.00 C-scape with Dan Bricklin’s Demo Program 


Please add $3.00 for shipping. Massachusetts orders please include 5% sales tax. 








Another Key to Freedom, from 


Oakland Group, Inc. ©) 


675 Massachusetts Avenue, Cambridge, MA 02139 


For orders and information, call: 
617-491-7311 or 


800-233-3733 
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THE CLOSEST shaw TO en Lor AVAILABLE FOR YOUR ss 


RICH SEI OF DATA TYPES 
Bignums, for high precision arithmetic 
8087 support, for fast floating point 
Arrays, for multidimensional data 
streams, for device-independent i/o 
Packages, for partitioning large systems 
Characters, Stirs, bit ares 


"PULL SET OF CONTROL PARITIVES- 


flet, labels, macrolet, for local functions 

if, when, unless, case, cond, for conditionals 
Keyword parameters, for flexibility 

Multiple-valued functions, for clarity 

Flavors, for object-oriented programming 

| _ Stacks, for coroutining 

Closures, for ericapsulation 


: LARGE COMPLEMENT OF > FUNCTIONS 


Mappers, for functional programming 
format, for output contro! 

sort, for user-specified predicates 
Transcendental floating point functions 
String handling functions 

Over 400 functions altogether 


. APPLICATION SUPPORT. 


Save and restore full environments 
User-specified initializations 


ie language interface 


” HARDWARE REQUIREMENTS 


8088 or 8086 CPU, MSDOS Operating System 
390K RAM or more 


0%’’ diskettes 
and manual $300.00 
Foreign orders add $30.00 for airmail. 


U.S. Shipping included for prepaid orders. _..._s—_iéi(y 
 MISDOS INTERFACE 


fa Integral Quality 
P.O. Box 31970 


seattle, Washington 98103 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 


EXTENDABILITY 

defstruct, to add data types 

Macros, to add contro! constructs 

Read macros, to extend the input syntax 
Extendable arithmetic system 
Customizable window system 


DEBUGGING SUPPORT 
step, for single-stepping 
trace, for monitoring 
break, for probing 
inspect, for exploring 
Flexible error recovery 
Customizable pretty-printer 





Random access files 
Hierarchical directory access 
— calls 


DOCUMENTATION 
On-line documentation of functions 
apropos 


_ 300-page indexed reference manual 











C CHEST 


Listing One (Text begins on page 14.) 


Listing 1 -- dtree.c 108 else if( name = strrchr(dname, ‘/') ) 
Se SS ee a ee ene eee eee 109 namet++; 
1 #include <stdio.h> 110 else 
2 #include <ctype.h> Lad. name = dname; 
3 #include <process.h> /* needed by spawn () wy: 112 
4 #include <mydir.h> /* needed by dir () Fy. 113 printf( "%s\n", name ); —= 
5 #include <signal.h> /* needed by signal () wf 174 } , { 
6 115 
D [® ann nnnnn rr nae 116 /* --------------------------------------- ---------------------------- */ 
8 * WHEREIS and DTREE Ale 
os 118 execute( dname ) 
10 * A general-purpose directory traversal program. If invoked with name 119 char *dname; 
11 * “whereis" it searches for a file in the directory system. If invoked 120 { 
12 * with "dtree" it does the above and can also print the directory tree or say. /* Execute the command specified on the command line from 
13. * executes a program in each directory. See usage() and wusage() below {22 * the directory we're now visiting. This routine changes 
14 * for more details about the command-line syntax. 123 zi the current directory but doesn't put it back. 
is, * 124 * The Args vector must point at the command array. 
16 * (C) 1986 Allen I. Holub. All rights reserved. 125 */ : 
A Ale 126 
18 127 if( Args ) 
19 extern DIRECTORY *mk_dir( int ); 128 { 
20 extern void del _dir( DIRECTORY* ); 129 chdir( dname ); 
21 extern void dir( char*, DIRECIORY* ); 130 if( spawnvp(P_WAIT, *Args, Args) == -1 ) 
22 extern char *strrchr( ehar*, int. }3 rol perror (*Args) 7 
23 132 } 
28 of 8 Se ee 133. -} 
25. * These IBM graphics (box drawing) characters are used only if the 134 
26 * output stream is stdout and isatty() is true (it will be false if VBS [mmm a my 
27 +* stdout is redirected). 136 
28 .* 137 find( dname ) 
2g | | | 138 char *dname; 
30 * ELL | tT RIG + > VERT | (dash) - === 139 { 
Sie *y\300' t= \303 | \263 | \304 140 /* Look for the Findfile file in dname. If it's there, print 
32 */ 141 * the full path and file names and return 1, else return 0. 
33 142 iets 
34 static char *Graph chars(] = { "\263", "\300\304\304\304\304\304", 143 
35 r. "\303\304\304\304\304\304" —}; 144 static char pathname [DSIZE]; 
36 145 char **vyects; 
37 static char *Norm chars{] = { "|", "te-o=-=- hk a 146 int count; 
38 static char “*Cset = Norm chars; 147 int rval; 
39 148 DIRECTORY *dp; 
40 #define VERT Cset [0] 149 
41 fidefine ELL Cset [1] 150 sprintf( pathname, “%s/%s", dname, Findfile ); 
42 #define T_RIGHT Cset [2] 151 
43 LS2 if( !(dp = mk_dir( 64 )) ) 
GQ [8 manna nn nn a nn af 153 { v 
45 154 printf("dtree: Out of memory\n"); : 
46 #define DSIZE 255 155 return 0; 
47 static char Startdir[(DSIZE+1); /* The cwd when the program started */ 156 } 
48 static char Map[ 64/8 j? /* Bitmap for 64 bits. If the */ 157 
49 /* directory tree is deeper than x/ 158 do->files = 1; /* Get files only af 
50 /* this, we're in trouble. wf 159 dp->sort = 1; /* sort the list »/ 
21 160 dp->path = 1; /* and include the full path name */ 
52 static char **Args = NULL; /* Thing to execute, pass to spawnv */ 161 dir( pathname, dp ); /* Fill the DIRECTORY structure */ 
53 static int Short_pname = 0; /* Use short pathnames ey 162 
54 static int Draw = 0; /* Draw directory tree e/, 163 vects = (char **) dp->dirv; /* ... and print it. */ 
55 static char *Findfile = NULL; /* File for which we're searching Ef 164 count = rval = dp->nfiles; 
36 , 165 while( --count >= 0 ) 
57. [* sees ener ee eee) aes. ee ee 166 printf( "%s\n", *vectst+ ); 
58 * bitmap routines: 167 
a) 6S testbit (x) Evaluates TRUE if bit x is set. 168 del dir( dp ); 
60 * setbut (x,val) Set bit « if val is TRUE, else clear it. 169 return rval; 
or *% 170 } 
62 171 
63 #define testbit(x) ( Map(x >> 3] & (1 << (x & 0x07)) ) L712 [i eee men nn a a a 5 nr rm */ 
64 173 
65 static setbit(c, val ) 174 static prnt({ dname, others ) 
66 int Cp Vals 175 char *dname; 
67 { 176 int others; 
68 if( val ) 177 { 
69 Map[c >> 3] I= 1 << (¢ & 0x07) ; 178 /* Does a recursive traversal of the directory tree rooted at 
70 else 179 * dname. “others" is true if the calling routine has more 
71 Map[c >> 3] &= ~(1 << (c & 0x07)) ; 180 * subdirectories to print. 
a2? } 181 */ 
73 182 
TA) [8 eee ta eee rer ee a “et 183 DIRECTORY *dp; 
73 184 char **vects; 
76 pline( depth, terminate ) 185 int count; 
a 186 static int depth = -1; 
718 = Print all the spaces and vertical bars in a graphic 187 
79 a representation of a tree. Does nothing if Draw if FALSE. 188 if( ++depth 6& Draw ) 
80 a7 189 { 
a 190 pline( depth, 0 ); 
82 int 1; 191 printf("%s", others ? T_RIGHT : ELL ); 
83 192 } 
84 if( !Draw ) 193 
85 return; 194 if( Findfile ) /* if -f was set don't */ 
86 195 { /* execute a —e command #7 
87 for(i = 0; i < depth-1 ; it+ ) 196 if( find( dname )) /* unless we've found the */ 
88 printf(testbit (i) ? “%s tens « ~ VERT.) 197 execute( dname ); /* file. find() prints the */ 
89 198 } /* filename if it exists. xf 
90 i1£( terminate ) 199 else 
91 printf ("\n"); 200 { 
med 201 pname ( dname }); /* else print the directory «/ 
= 202 execute( dname );7 /* name and execute the cmd */ 
94 /* ee a as eres ere a a Ss ar en ae SS Pe re ee ee ee a / 203 } 
95 204 
36 phame(: Chama) 205 if( ! (dp = mk_dir( 32 )) ) 
97 char *dname; 206 { a 
a 207 printf("dtree: Out of memory\n"); 
99 f* Print a directory name with or without the full path 208 return: 
1090 F spec (depending on whether Short _pname is set. 209 } 
101 ad 210 
aaa 211 dp->dirs = 1; /* Get subdirectories xy 
103 char *name; 212 dp->sort = 1; /* and sort them. oe 
— 213 dp->exp = 1; /* expand subdirectories rather than */ 
105 if( !Short_pname || (dname[{0) == '/' && !dname{1}) ) 214 /* printing their names. x / 
106 name = dname; , 
as (continued on page 66) 
62 


Dr. Dobb’s Journal, September 1986 





We're Programmer's Connection, 
a leading independent dealer of 
quality programmer's development 
tools specifically for IBM Personal Com- 
puters. We're your best one-stop source 
for the professional PC /MS-DOS and XENIX 
programming tools you need. 

Since we're an /ndependent dealer, we'll look out for your best 
interest. Our courteous, knowledgeable, noncommissioned sales 
Staff is always ready to assist you. If you aren't sure about your 
needs, you can talk to our experienced, professional technical 
staff for sound, unbiased advice. They can compare products, 
answer technical questions and send you detailed product 
information that's tailored to your needs. 

Qur product line consists of hundreds of high quality software 
development tools specifically for IBM Personal Computers and 
compatibles. We don't carry everything ever written for program- 
mers — only those products that meet our very high standards for 
quality and value. 

The products we carry are the latest version and they all come 
with the same manufacturer's technical support as if buying 
direct. Unlike other dealers who participate in the software gray 
market, we're authorized to sell every product we carry. 

We discount all software products — even special order items. 
We don't try to fool you by discounting some products and 
charging full list price for others. Every product in our price list is 
shown with its discounted and retail price. We want you to know 
exactly how much you'll save on every product. 

Other dealers add extra rush charges for shipping via express 
services. We'll express your order to you with no special handling 
charges. We only charge you what the shipping carrier charges. 
And if you have your order shipped via standard UPS, shipping 
is FREE. 











Most popular products are in 

stock and ready for immediate ship- 

ment. Maintaining an adequate inven- 

tory is part of our philosophy of fast, 

efficient service. If we don’t have a product 

in stock, we'll get it for you fast. Again — 
no extra charge. 

Some dealers charge your credit card at the time they take your 
order. This means you could be left waiting in vain for your order 
for weeks or months while they use your money interest free. We 
never charge your credit card until we actually ship your order. 

Quite simply, the discount prices you see on the next two pages 
are all you pay. There are no hidden charges. We don’t charge 
extra for standard UPS shipping, credit cards, COD orders, 
purchase orders or special handling (except orders outside the 
U.S. and Canada are charged $5 for customs form preparation). 

Our goal is customer satisfaction and that’s why we offer 30 
day no-risk return guarantees and 30 day evaluation periods on 
most of our products. Note that some items, especially those with 
source code, are restricted by the manufacturers from this 
guarantee. Please call for specific details. 

Our customers keep coming back because we consistently 
provide high quality service and low discount prices. So make the 
connection today and see how convenient one-stop service can be. 


CALL TOLL FREE 


US: 800-336-1166 = CANADA: 800-225-1166 


OHIO AND OVERSEAS:216-877-3781 
Hours: 8:30 AM to 8:00 PM Eastern Time, Mon.-Fri. 
Customer Service: 216-877-1110 


programmer's 
connection 


Call or write for our FREE comprehensive price guide. Turn the page for our latest advertised price list. 
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PROGRAMMER DEVELOPMENT TOOLS FOR THE IBM- PC/XT/AT 


apl language 
APL*PLUS/PC System by STSC ... 2... cence wees 
APL*PLUS/PC Tools Vol” TOV SIS osschus xe eee ss a 
APL*PLUS/PC Tools Vol 2 by STSC ...................6. 
APL*PLUS Spreadsheet Manager by STSC ............... 
APL*PLUS/UNX System For AT Xenix by STSC ............. 
Btrieve /SAM File Mgr with No Royalties by SoftCraft............ 
Financial/ Statistical Library by STSC..................... 
PRGROE APLC DY SIG as dines xe te 'lad baw weed ae ER bE Secs 
STATGRAPHICS Statistical Graphics System by STSC.......... 


arity products 


Arity Expert System Development Package ....... -... New 
Arity File Interchange Toolkit ........................ New 
Arity Prolog Compiler & Interpreter................... New 
Arity Prolog Interpreter. ................... 2c eee eee New 
Arity SQL Development Package..................... New 
Arity Screen Design Toolkit.....................0045- New 
Arity Standard Prolog <5... .is «0.0 cad io ieee New 


artificial intelligence 

ExpertEDGE by Human Edge . ....... 5. cee cee cee ee 
Experteach Il Complete System by Intelligenceware .......... 
EXSYS Expert System Development Software by EXSYS ......... 
First Class by Human Edge .. . .....<...05 ede eeetee New 
GCLISP Golden Common LISP by Gold Hill ...............-65 
GCLISP 286 Developer LM Interpreter & LM Compiler.........- 
Insight 1 A/ Primer by Level Five Research ................- 
Insight 2+ by Level Five Research ............-----+ee eee 
Logic-Line Series Ali varieties by Thunderstone ......... New 
Microsoft LISP Common LISP ......... 0. cece eee ee ee eee eee 
PLA microProlog by Programming Logic Associates ....... 

witht APES. 5s. ca Wes ban Vie Biv oe eee eee mess ie 
PLA Professional microProlog by Programming Logic...... 

with APES oii cso is cats sales b's San Tate wre eee oh 
QNIAL Combines APL with LISP by NIAL Systems ............- 
Turbo Prolog Compiler by Borland International ........... 


assembly language 
8088 Assembler w/Z-80 Translator by 2500 AD .............- 
ASMLIB Function Library by BC Associates ............. New 
Cross Assemblers Over 25 Varieties from 2500 AD ........... 
Microsoft Macro Assembler with utilities... .......-....-554-- 
Turbo EDITASM Fast Assembler by Speedware.............- 
Visible Computer: 8088 by Software Masters .............. 


basic language 
BetterBASIC by Summit Software ............. 00. eee eee 
BOST Wid) GUDDONE cy, ons oa iin ia so oR ere Neste we tees 
Btrieve InletbGe oc fossa kn Fees PRS i a vas ess 
PIRES te Sire eC a eee hen we Re eM S Chess 
Puista— Chery PN eo 5a a es a Sal ica Ree Siig eae s 
Microsoft QuickBASIC Compiler ............ New version 2.0 
Professional BASIC by Morgan Computing ..............-. 
Ela IVR DIOR 255 2X % Sains cle d Sues walas Moen 
True Basic Includes FREE BASICA Translator ............050085 
Ruri-Hihe WARGO 3 bccn chica Foes inet We hee ed Hee wee ges 


blaise products 
ASYNCH MANAGER Specify for C or Pascal ..........00000585 
C TOOLS/TOOLS 2 Combination Package ............... 
ree CC AE ab ale eR Sevens LEE, om Eh 
Se Oe rs eke vk debt Mek MAE Oe RERMO Rho be ee A 
C TOOLS PLUS for Lattice C 3+ and Microsoft C 3+ ........ New 
EXEC Program Chainel. 655k FeO SG Wether aes 
PASCAL TOOLS/TOOLS 2 Combination Package ............ 
PRGA VOI Lee ens den bo ates 1 cee es oe oS 


PABGAL TOORS Sak Ji sock boas Came cowievelee sa eee 
PRRUUMOORE Tent FORE | b.. 55 nse cin ae ae 8 Fo Ue a iecktet we New 
TURBO ASYNCH PLUS for Turbo Pascal.......... New Version 


TURBO POWER TOOLS PLUS for Turbo Pascal . . . New Version 
VIEW MANAGER with Source Specify for C or Pascal ......... 


borland products 
REFLEX Data Base System. 2. ie er eee ewe ce ate ates 
REFLEX Worleion.5o ose 5 6 ig Pe ls eae ea ees New 
REFLEX and REFLEX Workshop Combo Package ....... New 
Turbo DATABASE TOGLBGOR 2.3 6 ci ee ee ee 
Fido EET EO Cees sk Gee Sasseritigasn eis ie x 
Turbo GAMEWORKS TOOLBOX ....................5005- 
Turbo GRAPHIX TOOLBOX ................ 0... eee eee 
AN Tae eG Pe isos wes Fair 4 DAA dee tle BS 4 EEO 
Turbo PASCAL with 8087 and BCD ...... 6... . cece eee eens 


Testis PTO SIGINRINOE 5 25 oie an 8d ch as ep 2 Se led eo oes we 
Torbd TUTOR for Turbo PASCAL «> 6356.6 Gis Sa eas eee 
Wott WRN nok 5 ASK ik oe BG Se eee Sco s ua New 
Word Wizard and Turbo Lightning Combo Package...... New 


c compilers 
C-86 Optimizing Commitee... os fess ccc nein neee 
Datalight C Compiler Smali Memory Model...............55.- 
Datalight Developer's Kit with Large Memory Model ........... 
DeSmet C with Source Debugger ........... cee eee ee eee eee 


DeSmet C with Debugger & Large Case Option............. New 
Eco-C Complete Development System by Ecosoft .............. 
Lattice C Compiler from Lattice .......... See Lattice Section 


Let's C Compiler by Mark Williams 

with csd Source Level Debugger ....................25. 
Microsoft C Compiler with CodeView .......... New version 4.0 
MWC-86 by Mark Williams ....................0 2.0. e eee. 
Wizard C Compiler /nciudes Lint by Wizard Systems 


eee ee eee 


LIST OURS 
595 449 
295 239 
150 129 
195 159 
995 795 
250 195 
275 219 
95 79 
795 619 
295 279 
50 48 
795 739 
350 329 
295 279 
50 48 
95 89 
795 659 
475 CALL 
395 339 
500 419 
495 CALL 
1190 CALL 
95 75 
485 389 
CALL CALL 
250 189 
250 219 
450 399 
395 349 
695 599 
375 359 
100 + 79 
100 ~=—s 89 
149 129 
CALL CALL 
150 99 
99 84 
80 65 
200 165 
99 = 85 
99 ~=85 
CALL CALL 
250 225 
99 79 
99 79 
50 47 
150 105 
500 435 
175 136 
175 149 
125 105 
100 ~=—s- 84 
175 139 
95 79 
175 139 
125 105 
100 += 84 
50 47 
100 = 84 
100 ~=—s 84 
275 209 
150 119 
70 #59 
200 159 
70 54 
70 54 
70 54 
70 ~3=—54 
99 75 
100 69 
100 +3679 
40 32 
70.2 5 
150 129 
395 289 
60 48 
99 79 
159 145 
209 193 
125 89 
500 299 
75 +59 
150 118 
450 299 
495 299 
450 369 


and compatibles. 


c interpreters 
C-terp by Gimpel Software Specify compiler interface.......... 
Instant C by Rational Systems.................. New version 
Introducing C by Computer Innovations ................... 
Runs 6 Ov Age ot Reason: 2... coc. in os ee os 
Run/C Professional by Age of Reason .................... 


c utilities 


300 
500 
125 
150 
250 


Also refer to Blaise, Lattice, Microsoft, Phoenix, Polytron, 


SoftCraft and Xenix System V sections. 
APT Application Programmer's Toolkit by Shaw American 
Dane <. aseeey Dy C SOUCE. fo cae SECS TS es 
C Essentials by Essential Software ....................05- 
C to dBase /SAM Manager by Computer Innovations ......... 
c-tree /SAM File Manager with source by FairCom ............. 
C Utility Library by Essential Software .................... 


CONE RY INOGORD So ooo Stee ne Par He ee eee 
© WR Ay oo sa wie oe do iy Ee 
Cl Probe Source Level Debugger........... Limited Quantity Sale 
Cl RomPac for C-86 by Computer Innovations .............. 
dBx dBase to C Translatorby Desktop Al ................ New 
GEIR 9 PONE oe oy Sa Ce cai acd o wale 2s ben PONS New 


dbVISTA Single-User DBMS by Raima ................020 0 ee 

WRN COGS 3 <<) oie oo ocd retces ae ew Dye Dae te w sees 
dbVISTA Multi-User DBMS by Raima ............ 5000 eee eee 

WPS ARAN ANID Soe ss 04's. 5 0 2 wins gue Ewa 8 ees 6 Sls he we 
Entelekon Combo Package Al! 3 items below...............- 

CUR CURNIAAONONY i. cos oe hae Os ae apa ie wel ks ennig 

i WHEE sna pies AGip SR Sae aie em Re bh wees woke eA ees 

sg 2) ge Oe eee ee Nn Pe eee 
Essential Graphics No Royalties by Essential Software ....... 
Flash-up Windows by Software Bottling of NY ............. 
GraphiC Mono version 2.2 by Scientific Endeavors ........... 
GraphiC Color version 3.0 by Scientific Endeavors ........... 
The Greenleaf Functions by Greenleaf Software ........... 
Greenleaf Comm Library by Greenleaf Software ........... 
The HAMMER by OES Systems ..................5. 0-0 eee 
MetaWINDOWS by Metagraphics ....................055- 
MetaWINDOWS/Plus by Metagraphics ................... 
Multi-Halo with Royalties by Media Cybernetics ............. 
On-line Help from Opt-Tech Data Processing.............. 
PANEL by Roundhill Library Source Also Available............-. 
PC Lint by Gimpel Software. ................... New Version 
Scientific Subroutine Library for C by Peerless ............ 
Vitamin C by Creative Programming ................5+0 ee 

VC Screen Interactive Forms Designer .........0000ee evenness 
Zview with Free Updates by Data Mgmt Consultants .......... 


cobol language 
Micro Focus COBOL Workbench .....................55- 
Micro Foeus Level UW COBOL oo 5. cee ae ke eins ice ees 
CCAP ak oS 0% ved cs woe SOE ee SI ke New 
Ee oh toa Sak 5 ea aes soa eee bnds 4, wider as poe 
PO ee ok kw dene Galea ee Heme d Whe tends eo cet 
Empat AP Arietta is od SSR eR ea de Bh tees bi 
Level i SOGURCEWRITER. 4 2 fico iii stn caps orb Ss oe ees 
Micro Focus Level Il COBOL For Novell NetWare............. 
Micte Fucus MAIOLGO. 60k i oS es ci saets OFS lees 
Micro Focus Professional COBOL........................ 
Multi-user Runtime for PC Network .......... 0c eee eee eee 
BRITON Greets i et idee tiem 5 dsceaie's See Microsoft Section 
OPT-Tech Sort Also Sorts Btrieve Files 2.0... ccc cc ce eee 
PE eae boo eee ict Sit Sede cS gama Leah aves 
RM/COBOL by Ryan-McFarland................ cece eee 
RM/COBOL 8X ANSI 85 COBOL by Ryan-McFarland ........ 


debuggers & profilers 
Advanced Trace-86 with ASM Interpreter by Morgan.......... 
Cl Probe Source Level Debugger........... Limited Quantity Sale 
Codesifter Execution Profilerby David Smith............. New 
Codesmith-86 Debugger by Visual Age............. ee ee eee 
Periscope | w/Board & Switch by Data Base Decisions ....... 
Periscope II w/NMI Breakout Switch Only ..........-000 0-0 ees 
Periscope II-X Software only .......... Special Price thru August 


forth language 
CFORTH Native Code Application Compiler by LMI............. 
LMI Forth/83 Metacompiler Specify Target Processor ......... 
PC/Forth by Laboratory Microsystems................5.-. 
PC/Forth+ by Laboratory Microsystems................... 


fortran language 
ACS Time Series by Alpha Computer Service.............. 
Btrieve /SAM File Manager ................ See SoftCraft Section 
50 MORE: FORTRAN by Peerless Engineering ............ 
For-Winds by Alpha Computer Service..................-- 
Forlib-Plus by Alpha Computer Service .................5. 


FORTRAN Addenda by Impulse Engineering .......... New 
FORTRAN Addendum by Impulse Engineering ........ New 
Grafmatic or Plotmatic by Microcompatibles........... New 
Grafmatic and Plotmatic by Microcompatibles ......... New 


CE SN ore ah whoa im Ass'n Seer em UC ee mp a a a Fie 
Multi-Halo with Royalties by Media Cybernetics ............. 
PANEL Screen Designer by Roundhill....................4.. 
RM/Fortran by Ryan-McFarland ...................0 eee 
Scientific Subroutine Library by Peerless ................. 
The Statistician by Alpha Computer Service ............... 
Strings & Things by Alpha Computer Service .............. 
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395 
175 
100 
150 
395 
185 
100 


225 
195 
350 
CALL 
195 
495 
495 
990 
200 
130 
130 
50 
250 


280 
350 
185 
185 
195 
185 
235 
300 
149 
295 
139 
175 
150 


245 


4000 
1500 
250 
200 
300 
900 
2000 
2000 
175 
3000 
500 
700 
149 
995 
950 
1250 


175 
225 
119 
145 
295 
145 
115 


300 
750 
150 
250 


495 
250 
125 
90 
70 


165 
135 
240 
350 
300 
295 
595 
175 
295 


239 
379 
105 

99 
184 


339 
135 


139 
329 
139 
89 
45 
159 
149 
329 
CALL 
159 
429 
429 
849 
175 
115 
115 
45 
219 


219 
299 
135 
135 
175 
139 
199 
219 
119 
229 
109 
139 
139 


199 


3599 
CALL 
219 
169 
269 
CALL 
CALL 
1799 


2395 


995 


eo 


lattice products 


Lattice C Compiler from Lattice .......................08. 
eraOrary DOUTCS GONG 66 ok ie ws ols Selgee aces owe sea 
C Cross Reference Generator.........................0.. 
IE MRC tog es tials vhcin'S% «0 we dus byw elaly awe baal 
C-Food Smorgasbord Function Library ............00. 0.00 
SONATE RADII so yc. alain! 9 cow ¥ Avie ha bberR E+ Green 
C-Sprite Source Level Debugger ....... 0... cece cece eee ecceee 
Gores Gorden Manager... 6.5620 oa velo bocce coica cob de 
tee CG CHE ns Gs Ok OS ea Secs 6 oye b ome Saas dveds 
Ge dBase File Manager for C .. ... oes ccc cce ce cccscucbouce 
WE GNOME. oo. o5 voend ve ves ewes Caawes Gedo ee ewale’s 
SER INANE PROWNY 5.4 wise hve dMwen oe was wnnacdev ee tarwe lis 
RPG Il Compiler No Royalties .. 00... cece cece 
SecretDisk File Encryption Utility... 2... oe cc ccc cee 
SideTalk Resident Communications. ..... 06.00. ccc ccc cee ceee 
Text Mgmt Utilities (GREP, DIFF,ED,WC,Extract,Build)............ 
TopView Toolbasket Function Library..... 2.0... 0c cece cee ee 
WP POE A IOO ss i'a.5 bXiwn's 5% nye Ce dais bien Ex oth oxnoms 
Ree ae Sas CONE nk, Serie ob aod owl ae babes cok KR 
with Library Source Code... ., 25 esc... 5 ses Cnelviccwc dacs 


logitech products 
SOMES oa § cum kin we were ake s 49 caekaeeEEae bel New 
Logimouse+ 
Logimouse+ with Paint..........................005. New 
MODULA-2/86 Compiler.....................0.0..0.0-055. 
WN BOO, Used ask coun Wists Adios Oh tides pd se bento Ge 


MODULA-2 Source Package ........................05.. 
MODULA-2 Translator TurboPascal to MODULA-2........ New 
MODULA-2 Utilities Package ............................ 
MODULA-2 Window Package ....................... New 


microsoft products 
Microsoft BASIC Interpreter for Xenix..................... 
Microsoft C Compiler with CodeView .......... New version 4.0 
Microsoft COBOL Compiler.............................. 
PT Us ok AS de Comore btdhn a 6 eich tee wHOP na Sank’ 
Microsoft COBOL Tools with COBOL Source Debugger ........ 
Te PNM ty bac inti hs 22 ewes Eo bon oe on COR te 
Microsoft Fortran Compiler .........................0.... 
See NN Son 6 ake Bry cwerantw ale Vac ewan ee let aa. 6 o's 4 


Microsoft Pascal Compiler............................... 

FO PON so BE die ade NRE ocean ee cb clade Butemesk 
Microsoft QuickBASIC Compiler ............ New version 2.0 
WONTON BRINE ws ili cia ol wd fisuws owt wa'ed Oda oo en bce lees 


other languages 
CCS MUMPS Single-User version by MGlobal 
CCS MUMPS Multi-User version by MGlobal............. New 
Janus/ADA C Pack by R&R Software..................... 
Janus/ADA D Pack by R&R Software..................... 
Methods Smaiitalk by Digitalk ..........................0., 
SerTin FM iy OGG os we dice bia onc cv ewe Setar. New 
SNOBOL4+ by Catspaw ............... 0c. ccc ccc eeee New 


other products 
Dan Bricklin’s Demo Program by Software Garden......... 
FASTBACK Backup Utility by 5th Generation Systems ........ 
Interactive EASYFLOW by Haventree Software ............ 
Quilt Computing Combo Package Both Items Below...... New 
QMake Program Rebuild Utility. 2... oo. ccc cece cece cee ee New 
SRMS Software Revision Mgmt System .. 2... cece cc cece ee. 
Source Print by Aldebaran Laboratories................... 
Taskview by Sunny Hill Software .................... New 


phoenix products 
Pfantasy Pac (Pfinish,Pfix+,Plink+,Pmaker,Pmate,Ptel)............ 
Pfinish Performance Analyzer... ... 0... cece ceee New Version 
Pfix-86 Plus Symbolic Debugger ...........00cc cc ccccccccuee 
PforCe Comprehensive C Function Library. .........ccceccccues 
PMK-B6 Overlay Linker 01... 0 cok kk ccc cece cece Bace 
Plink-86 Plus Enhanced Overlay Linker ...................... 
Pete Macro Text:GGROr. 2... oe. is cv cc ue vuWlade ci'ore nu vedes 
Pre-C Lint ORY oS e's 3 38 eb MO ew oot hw we walks Te ed cose 


polytron products 
FEIN Ae DONNIE Feb s i De ven WC ed cadas¥e che coxa 
NEE RN ide eines x iswis «koe wacked Ge'csin Sahat umes 
Polytron PowerCom Communications. .................0000. 
PolyLibrarian Library Manager ........ 00. ccc eee cece 


LIST OURS 
500 299 
900 549 
50 39 
200 = 159 
150 99 
300 8195 
175 139 
125 98 
250 194 
250 194 
500 388 
195 149 
750 §=©635 
120 95 
120 95 
120 95 
250 194 
500 388 
500 388 
1000 789 
99 89 
119 105 
169 149 
89 64 
129 104 
189 148 
59 49 
69 59 
179 = 155 
49 45 
49 45 
49 45 
350 279 
450 299 
700 8495 
995 795 
350 209 
450 359 
350 215 
695 CALL 
250 189 
150 99 
175 39149 
195 159 
300 8195 
300 §=195 
695 CALL 
99 79 
195 149 
99 74 
500 395 
60 55 
450 379 
95 89 
900 795 
79 69 
99 89 
95 84 
75 65 
179 159 
150 129 
199 169 
99 84 
125 109 
139 119 
70 59 
1295 949 
395 259 
395 259 
395 289 
395 259 
495 359 
195 149 
295 195 
195 149 
49 45 
99 79 
179 + =139 
99 79 


PolyLibrarian Il Library Manager .......... 0.00. cee eee eee 149 
PolyMake UNIX-like Make Facility... 0.0... ccc ccc ccc cee eee 99 
PolyOverlay Overlay Optimizer ............ 0... cece ee eee 99 
PolyWindows Products Ali Varieties................000.000 CALL 
PolyXREF Complete Cross Reference Utility ............00.000. 219 
PolyXREF Support for one language only ...........c cece eeeee 129 
PVCS Polytron Version Control System. ........ cece eee eee e eee 395 
PVMFM Polytron Virtual Memory File Manager.................. 199 
softcraft products 
Btrieve /SAM File Manager with No Royalties ............0..0005 250 
Xtrieve Query Utility for Btrieve... 0... ccc ce cee eens 195 
Rtrieve Report Generator for Xtrieve ... 2... ce ccc 85 
ITAL PE for Night. < oh ceca. hls ChS 5. bse s wis 'swhon Pond 595 
Xtrieve/N Query Utility for Btrieve/N ... 00... ec ce cee cee eee 395 
Rtrieve/N Report Generator for Xtrieve/N ..... 0... 00c ccc ceee 175 
text editors 
Brief from Solution Systems... 25... ccc eee ecu e ec cees 195 
Epsilon Multi-tasking Emacs-like editor by Lugaru ............. 195 
FirsTime for Turbo by Spruce Technology................. 75 
KEDIT Xedit-like editor by Mansfield Software Group......... 125 
PC/VI by Custom Software Systems ...............08. New 149 
Personal REXX by Mansfield Software Group.......... New 125 
SPF/PC by Command Technology Corp .................. 195 
Wee OF COMPUIVIGW,. 5 Siw ws cence ban giheleigud uae shew 150 
Vedit Plus by CompuView .................... ccc ccc ceees 225 
XTC Text Editor with source by Wendin .................00005 99 
turbo pascal utilities 
Also refer to Blaise, Borland and SoftCraft sections. 
ALICE Turbo Pascal Interpreter by Software Channels......... 95 
FirsTime for Turbo by Spruce Technology................. 75 
Flash-up Windows by Software Bottling of NY ............. 75 
Multi-Halo with Royalties by Media Cybernetics ............. CALL 
On-line Help from Opt-Tech Data Processing.............. 149 
Screen Sculptor by Software Bottling of NY................ 125 
Turbo EXTENDER by TurboPower Software............... 85 
Turbo Professional by Sunny Hill Software ................ 70 
TurboPower Utilities by TurboPower Software............. 95 
TurboWINDOW by MetaGraphics ........................ 80 
wendin products 
Operating System Toolbox Build your own OS ............... 99 
POCUMIX Qnarating Systoms...'. <6 oo ono voc ho hes Loven yaa Cul 99 
PCVMS Operating System Similar to VAX/VMS ......00.--055.. 99 
XTC Text Editor with Pascal Source Code..............--2..... 99 
xenix system v 
Complete Xenix System by SCO Ail 3 items below............ 1295 
Xenix Development System ....... 0.0.0.0. cece cece ceeuce 595 
Xenix Operating System Specify XTorAT ............-.... 595 
Xenix Text Processing Package ........................ 195 
xenix languages and utilities 
APL*PLUS/UNX System For AT Xenix by STSC ............. 995 
Btrieve /SAM File Manager by SoftCraft...............000--5. 595 
c-tree /SAM File Manager with Source by FairCom ............. 395 
dBx dBase to C Translator w/source by Desktop Al ........ New 550 
dbVISTA Single and Multi User versions by Raima ............. CALL 
Informix by Relational Database Systems.................. 995 
Informix4GL by Relational Database Systems.......... New CALL 
InformixSQL by Relational Database Systems.......... New 995 
A PSOPRNGE Fins. deans GW 5 Eee San Me eles edierd fe Dac ate 595 
Micro Focus Level Il Compact COBOL For AT.............. 1000 
OMB se eae Baws REN Malu c door Cece eee 400 
LOVOL IT ANIMATOR ice lb ei vic lan Fu ada Chee 600 
Microsoft Languages ................. See Microsoft Section 
Networks of REMIX bY:SCO eis cc. ine coves rob dec a, 595 
PANEL Screen Designer for AT Xenix by Roundhill............. 695 
RM/COBOL by Ryan-McFarland..................000005. 1250 
RM/FORTRAN by Ryan-McFarland ...............0000 05. 750 
SCO Professional Complete Lotus clone by SCO ............. 795 


Prices are subject to change without notice. 
Ohio customers please add 5% state sales tax. 


Hours: 8:30 AM to 8:00 PM EST, Monday through Friday. 
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119 
79 

79 
CALL 
179 
109 
329 
149 


195 
165 

75 
465 
299 
159 


CALL 
165 


109 
129 
109 
165 
115 
180 

84 


1099 
529 
529 
169 


795 
465 
329 
499 
CALL 
839 
CALL 
839 
489 
899 
359 
539 


529 
CALL 
995 
599 
695 
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136 SUNNYSIDE ST. 
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HARTVILLE, OHIO 44632 










FTL Modula-ll 
$49.95! 


Your next computer language. The successor to Pascal, 
Modula is powerful. Why? Once a routine is written, it need 
never be recompiled. Programs work everywhere from Z80 
through VAX. 


FTL Modula-ll is a full Z8O0 CP/M compiler (MSDOS version 
soon)! It’s fast -- 18K source compiles in 7 seconds! The 
built-in split screen editor is worth $60 alone. Some stan- 
dard features: full recursion, 15 digit reals, CP/M calls, 
coprocesses, assembler and linker. The one-pass compiler 
makes true Z80.COM, ROMable code, too. Get the language 
you've waited for now. Only $49.95! 















FTL Editor Toolkit 


Full source to our split-screen programming editor. Curious? 
Want to customize to your tastes? Want sample Modula-ll 
code? This is perfect for you. Comes with all you need for 
your personal editor or terminal installer. Just $39.95! 





WORKMAN & ASSOCIATES 
1925 East Mountain St. 
Pasadena, CA 91104 
(818) 791-7979 






We have over 200 formats in stock! Please specify your for- 
mat when ordering. Add $2.50 per order for shipping. We 
welcome COD orders! 


Circle no. 244 on reader service card. 


Performance 





DSD86, The PC-DOS Debugger 


DSD87, The PC-DOS Debugger with 8087 Support. 99.95 
DSD80, The CP/M Debugger 


Soft Advances 


P.O. Box 49473 « Austin, Texas 78765 ® (512) 478-4763 
1-800-232-8088 


Circle no. 83 on reader service card. 
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C CHEST 
Listing One 


(Listing continued, text begins on page 14.) 


215 dp->path = 1; /* and include the full path nane. */ 
216 dir( dname, dp ); 

Zit 

218 vects = (char **) dp->dirv; /* pointer to list of subdirs */ 
219 count = dp->ndirs; /* number of subdirs. xy 
220 

221 while( --count >= 0 ) /* visit the subdirs, one */ 
222 { /* at a time. the setbit */ 
223 setbit( depth, count ); /* call is used for */ 


224 prnt( *vects++, count ); /* printing the tree. af 
225 } 


227 if( !others ) /* If there aren't any wf 
228 pline( depth, 1 ); /* subdirs in the parent, */ 


229 /* output a blank line aT 
230 del dir( dp ); 


231 --depth; 


236 char *dodot ( str ) 
237 char *str; 


239 /* If str has no dots in it, return str, else get the pathname 
240 * refered to by str (ie. whatever name is indicated by 
241 * |. or .. or ../.. etc.) and return a pointer to that string. 


242 */ 


244 static char root_name[ DSIZE ]; 
245 char *D; 


247 £ft.-tstrehr{.-stzr, *.°-} 4 
248 return str; 


250 if( chdir(str) || !getcwd(root_name, DSIZE) ) 

251 { 

252 fprintf(stderr, “Can't find %s, aborting\n", str ); 
253 exit( 1 ); 

254 } 


256 for( p = root_name; *p ; ptt ) /* Map the name from DOS */ 
257 { /* style to UNIX style by */- 
258 if( *p == “AN ) /* mapping upper to lower */ 
259 tp = '/'; /* case and changing \ to */ 
260 else ff ay 
261 *p = tolower( *p ); 

262 } 


264 chdir( Startdir ); /* Restore the original a/ 
265 return root_name ; /* working directory a/ 


270 doargs( argc, argv ) 
271 char * "argv; 
att 


—m 
~ 
Ww 
ss 

» 


Does several things. First, it shifts all the arguments down 
one notch, overwriting the original argv[0]. Next, it 

puts a NULL into argv(argce-1], finally it processes (and 

removes from argv) all command line switches. Switch processing 
stops after a -e is encountered (but the compression continues). 
Argc, decremented to reflect all this stuff, is returned. 


We can't use getargs() in the program because -e is 
position dependant. 


Nm 

~ 

oo 
os. 8 2 2S MN 


Nh 
@ 
nN 

. 
ah 


284 register int nargc; 
285 register char **nargv; 


287 #ifdef DEBUG 

288 char **yv = argv; 
289 int cG 

290 #tendif 


292 narge = 0 ; 

293 for( nargv = argvtt+; --arge > O07 argvtt ) 
294 { 

295 if( **argv != ‘-‘* || Args ) 

296 { 

297 *nargv++ = *argv ; 

298 nargctt; 


300 else 


302 switch( argv(0] [1] ) 

303 { 

304 case ‘e': 

305 Args = nargv ; 
306 *nargv++ = *“++argv ; 
307 narge ++; 

308 putenv (“CMDLINE=") ; 
309 break; 


Suk case 'f': Findfile = gargv(0) (2); break; 
312 case 's': Short_pname = 1; break; 
313 case 'd‘: Draw = 1; break; 
314 default : usage(); 

315 } 


(continued on page 68) 
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NOW AT THE SBC MART 






COMPUTING SALE-A-THON 


HARD DISKS 


~ 






1.2MB Floppy on your PC or XT 





— complete 


* Now you can have a 1.2MB-and-360K AT-compatible floppy disk drive on your IBM 20 MB kit 


(or compatible) PC or XT. Our 1.2MB controller replaces your floppy disk con- 
troller. The controller is $149, a TEAC 1.2MB/360K disk drive is $135, the driver is 
$36. The controller combined with clock/calendar, serial and parallel ports, and 
able to control 3.5” and 8” floppy disk drives is only $189. 



































i ee — special 
7 only $479 





e complete internal %-high 20MB kit, incl. 
controller and cables, special $479 

e complete 30 MB kit with %-high drive, 
uses new Adaptec 2070-A controller, 
$579 







SPECIAL BONUS Norton Utilities Ver 3.0 Reg $99 only $60 w/purchase of any 
disk drive. IBM PC-DOS 3.2 (the real thing) Reg $95 only $70, w/purchase of mother- 
board. 























ADD-ON CARDS SBC PLEDGE 
%* OMTI hard disk controller card (this card 
e multifunction card 384K, clk/cal w/battey, | * service after sale * technical support is super fast) Reg $220, Model HDC-1 
serial, parallel, and game ports, with OK | * low prices * one year warranty now $175, wicables 





save $50 Model MFC-4 $89 











% Generalized hard-disk controller works 
with almost any drive. Just tell the con- 
troller your drive specs. Fast OMTI 5510-7 





® monochrome graphics card runs 1-2-3 Se 
graphics, w/printer port, 720x348, MGC-1 ey 












































now $99 (Hercules equiv.) etannte hard disk controller with cables and 
' —8i/Os| OMTIDISK utilities HDC-4 only $189 
¢ floppy controller for 1-4 48tpi or 96tpi — 
drives, w/cable save 125 Model FDC-2 Seat & a3 
now only $59 °* “Assembling an IBM PC/XT Compatible 
— BASIC inter- 












Computer System’ A novice can put an 
IBM PC compatible together with this new 
detailed manual. $19 


preter available 
— great foundation 

for business or 

personal system 
— 1 year warranty 


e color adapter w/light pen port, RGB and 
composite outputs Reg $140 Model CC-1 
now just $79 
















® Microsoft’s new QuickBASIC full MS 


* better than the Super 7: floppy disk BASIC compiler, Reg $99, only $89 


controller, clk/calendar, serial, parallel & 
game ports, spooler & RAMDISK s/w Sale 
$99 ideal mate for 640K motherboards 




















* Model MB-2 640K Turbo motherboard 
4.77 & true 8BMHz clock (switchable from 
keyboard or by software) with 256K RAM 










POWER SUPPLY 

























e clock/calendar card Reg $58, CL-1 $49 Reg $349 now $239 — 135 Watts 
— side switch 
% 808K ON A SINGLE FLOPPY, TEAC 96tpi ¢ Model MB-3 640K motherboard — top quality 


80-track disk drive kit, complete, nothing 
else to buy now $169 


with OK Reg $199 now $159 
* TURBO Program see below, right. 
ABOUT OUR MOTHERBOARDS 


— the most IBM PC compatible ‘mother- 
boards available 


— one year warranty a 
— standard cables for 4 disk drives 














* Model PS-135 power supply Reg $129, 
now only $75 


TURBO PROGRAM 


* This program will set virtually all turbo 
motherboards to the turbo, or high-speed, 
mode. Can be called from the keyboard or 
from your AUTOTEXEC file only $19 

















— each runs all commercially available 
software 

— each works with all commercially 
available add-on cards 









— high quality IBM PC look alike 
w/sideswitch, flip-flop top or side chassis 






These FOUNDATION motherboards are 
the most compatible you can buy. All 
work with V20 chips, have parity checked 
memory, an 8087 socket, 8 adapter slots, 
four empty ROM sockets. Super manual 
includes complete data on how to put 
together a complete PC system. It even in- 
cludes schematics. 


BEST DOS MANUAL 


* Microsoft Press’ “Running MS DOS”. For 
the less experienced and the most 
knowledgeable MS/PC DOS user. 423 
pages. We regularly get calls from our 
customers telling us how great this book 
is. } $21.95 










- any-combo disk drive brackets 
























— heavy steel 5- and 8-cutout style 






e Model CA-8 Reg $95, now $69 





Shipping and handling: drives/motherboards/cases/power supplies $4.50 ea., cards $2 ea., software $2.50 ea., keyboards/modems $4 ea., 
speedup kits $2 ea., memory $1/set, COMPUTERFACTS $3 first set then $1/set. CA residents add 6% sales tax. 






Visa/MC/AmEx ORDERS:(619) 375-5744 
The SBC MART, P.O. BOX 1296, Ridgecrest, CA 93555 






The SBC Mart is part of Computing Technology, 247 Balsam Street, Ridgecrest, CA 93555 
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the dBx™ translator 


dBx produces quality C direct 
from GBASE II or III programs. 


Move dBASE programs to UNIX or other machines. 


Improve program speed and reliability. 


Support multi-user/network applications. 
With power guidebook of conversion hints. 


Includes full screen handler and uses your 
current C database manager. 


May be used to move existing programs or help 
dBASE programmers learn C easily. 


For MSDOS, PCDOS, UNIX, XENIX, Macintosh, AMIGA. 
(Uses ANSI.SYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


dBx is a trademark of Desktop A\i 


4720 Post Road E., Westport, CT 06880 MCIMAIL « DESKTOPAI 
Phone « 203-255 +3400 Telex « 6502972226MCI 































| Transform Your Programs 


edward k. ream with 
- CPP—C Preprocessor Plus 


Includes ALL features of the standard C preprocessor. 

e Define arbitrarily complex macros with #define command. 

e Include and nest files to any depth with #include command. 

e Include lines with #if, #ifdef and #ifndef commands. 

¢ Define multiple constants with #enum command. 

° Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or * are ignored.) 


Fast and flexible ® = HE 

e 30 times faster than the Preprocessor published in Dr. Dobb’s 
Journal. 

e Can be used for any language, including assembler. 

e Can be used as a stand-alone macro/ include processor. 

© Code can be used as the lexical analyzer for parsers or 

assemblers. 








Complete? 

e You get complete SOURCE CODE in standard C. 

e You get everything you need to use CPP immediately. 

e CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $95. 





Enteleki, Inc. 

210 N. Bassett St., Room 101 
Madison, WI 53703 

Tele. (608) 258-7078 


TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68k) 
and the disk format (8 inch CP/M or the exact type of 5% inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 
in U.S. dollars drawn on a U.S. bank. Sorry, I do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 
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C CHEST 


Listing One 


(Listing continued, text begins on page 14.) 


319 
320 


*argv = NULL ; /* Add a NULL as the last entry */ 


321 #ifaef DEBUG 


322 
323 
324 
325 
326 
327 
328 


printf£("New argv is:\n"); 


for( c = nargc; --c >= 0 ; vtt) 
printf("<%s> Ox%tx\n", *v, *v )7 
printf ("\nFindfile=<ts>, Short_pname=%d, Draw=td, *Args=0x%x\n", 
Findfile, Short_pname, Draw, *Args); 


329 #endif 


#define E(x) fprintf(stderr, 


return nargce ; 


"$s\n", X ) 


337 usage () 


338 { 


348 } 


E( “\nUsage is: dtree root 
E{*<-e 
E ("-f<name> 


([-s] [-d] [-f<name>] [-e arg arg arg]\n"); 
Execute rest of cmd line from each directory" ); 

Find file called <name>" ); 

E("“=s Use short path names" ); 

E("-d Draw directory tree” +? 

E("\nEach switch must be in its own argument (-sd is illegal,")? 

E("you must say -s -d). If -f and -e are both specified, the command"); 
E("is only executed if the indicated file is found."); 

exit (1); 


350 wusage () 


Soi-={ 


361 onintr() 


362 { 


364 


E( “\nUsage is: whereis <filename>\n"); 

E( “Only one file name is permitted, though wildcards are recognized"); 
E( “by whereis itself, so you must escape these from the shell as in:"); 
E( “\twhereis \"*.c\" or whereis \\*.c” )?7 

exit (1); 


/* Called when a “C is encountered: af 
/* Get back to starting directory af 
/* before exiting. “/ 


chdir( Startdir ); 
exit (0); 


370 main( argc, argv ) 


371 char 


372 4 


4028 
409 
410 } 


** argv; 


/* If the program is invoked under the name “whereis" it 
* treats the command line: whereis <fname> 
4 as if you had said: dtree / -f<fname> 
mf 


reargv( &argc, &argv ); /* Redo arg list if running under shell */ 


if( !strenp(*argv, “whereis") ) 
{ 
if( arge != 2 || argv(1}(0) == '-' ) 


wusage ()7 


/* Search for a file. */ 
/* Force search to begin at / */ 


Findfile = argv[1}; 
arge = 0; 


else 


arge = doargs( argc, argv )7 
ft epgvEDt fT OR2) cos --*7 
if( Args && argc < 2 ) /* pathname cmd args ... */ 


usage (); 


Cset = isatty(fileno(stdout)) ? Graph_chars : Norm_chars ; 

if( !getcwd(Startdir, DSIZE) ) 

{ 
fprintf(stderr, “Can't save current directory, aborting\n"); 
exit (21) )7 

} 


signal( SIGINT, onintr ); 
prnt( (arge <1 || argv == Args) ? "/" : 
chdir( Startdir ); 


dodot {argv[0]), O )? 


exit (0); 


End Listing One 


Listing Two 


Listing 2 -- fix.c 


#include <stdio.h> 
#include <fcntl.h> 


#include <stat.h> 


extern 


1 
2 
3 #include <types.h> 
= 
3 
6 


char *strrehr () > 


(continued on page 70) 
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C CHEST 


Listing Two (Listing continued, text begins on page 14.) 


7 
8 

9 fdefine BSIZE 
10 fdefine CTL 2 
11 #define SMODE 
12 #define DMODE 


(10 * 1024) 
Oxla /* EOF marker 

(O_RDONLY | O BINARY ) /* read & write modes */ 
(O WRONLY | O BINARY | O _TRUNC | O CREAT ) 


/* Buffer size «/ 
* 


16 char 
1? char 
18 { 

13 /* Strips extension from name and adds .bak extension, returning */ 
20 /* a pointer to the modified name. The original name is untouched */ 


*bak ( name ) 
*name; 


22 static char buf[128], *p; 
24 strncpy( buf, name, 128-5 );7 


26 if( p = strrchr (buf, 
27 strcpy( ptl, 
28 else 

29 strcat( buf, " 


' a si ) 
“bak" ); 


31 return buf; 


38 fprintf(stderr, 


39 fprintf(stderr, 
40 exit( 1 )7 


“Usage: fix file [file...]\n\n"); 
“Removes trailing “Z's from files.\n"); 


45 main(argc, argv) 

46 char ** argv; 

47 { 

48 static char buf (BSIZE]; 

49 static char *srcname; 

59 char *D; 

51 register int got; 

SZ register int stc, -deste 

53 

54 cclet} 

55 reargv( &argc, &argv ); 

56 

ait ££(.arge < 2 |f{-argv{1] [0] (== '=*}) 
58 usage ();7 

59 

60 for( +targv, --argc; 
61 { 

62 srcname = bak( *argv he 
63 unlink ( srcname We 
64 rename( srcname, *argv ); 
65 

66 printf ("Fixing %-2Cs (creating %s)\n", 
67 

68 if( (sre = open(srcname, SMODE)) == -1 ) 

69 { 

70 perror( srcname ); 

71 continue; 

72 } 

a3 if( (dest = open( *argv, DMODE, S_IWRITE | S_IREAD) ) == -] ) 
74 { 

75 perror( *argv ); 

76 continue; 

77 } 

78 

79 while({ got = read(src, buf, BSIZE) ) 

80 { 

81 if( got == -1 ) 

82 { 

83 perror( srcname ); 

84 break; 

85 } 


/* # bytes got from read </ 
/* File handles ay 


/* Fix *C Interrupt handling */ 
/* Remake argv from CMDLINE */ 


--argc >= 0; ++targv ) 

/* srcname = xxx.bak */ 
/* delete xxx.bak af 
/* rename xxx.yyy to xxx.bak */ 


*argv, srcname ); 


87 for( p = buf; --got >=O «&6&& *p != CTL 2; ptt ) 


90 got =p - buf ; /* got = distance to “2 */ 


93 if( write(dest, buf, got) != got ) 
94 { 

95 perror( *argv ); 

96 break; 

97 } 


99 if( *p == CTL 2 ) 
100 break; 
101 } 


103 close( sre ); 
104 ciose( dest ); 
105 } 


187 exit ( 0 )? 


End Listings 
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If real-time performance is the key 
to the next generation of small 
systems, task-switching is the key 
to real-time performance. 


QNX task-switching has been 
measured using standard Intel 
benchmarks. Here are the results: 


Os Computer Processor Task 
Switches/ 
QNX™ IBMAT 8Mhz 80286 2800 
QNX™ IBMPC 5Mhz 8088 787 
XENIX™ = Intel-286 5Mhz 80286 203 
UNIX™ CODATA 8Mhz 68000 187 
XENIX™ ALTOS 5Mhz 8086 96 


UNIX™ FORTUNE 6Mhz 68000 95 


The margin by which QNX out- 
performs UNIX-based systems is 
not accidental. QNX architecture is 
unique among multi-tasking small 
computer operating systems 
because it is modular, not mono- 
lithic. On the PC, this distinction is 
decisive: UNIX system overhead 
and processing demands sap any 
computer smaller than an AT. 


Because QNX was developed 
specifically for smaller computers, 
not “kluged” from an OS written for 
larger computers, its structural 
advantages are apparent. QNX was 
the first multi-tasking, multi-user 
OS for the IBM PC (1982), the first 
again for the AT (1984) and the first 
networking OS for the PC and the 
AT (1984). For the forseeable future, 


QNX: With any other OS, your personal computer is asleep at the switch. 


QNX will remain the only real-time 
multi-user, multi-tasking OS for 
the PC, the AT and compatibles. 


As a networking OS, only QNX 
provides integrated performance 
at the fundamental level of inter- 
task communications. The tasks 
need not be on the same machine: 
the messaging is network-wide. 


A task responsible for handling an 
A/D converter on one machine can 
provide data and accept requests 
from tasks on any other machine. 
For this reason only QNX can 


Multi-User 
Multi-Tasking 
Networking 


10 serial terminals per PC, AT. 

40 (64) tasks per PC (AT). 

2.5 Megabit token ring. 

255 PC's and/or AT’s per network. 
10,000 tasks per network. 
thousands of users per network. 


Real Time 2800 task switches/sec (AT). 


Fast intertask communication between 


Passing 


tasks on any machine. 





implement true distributed 
processing, distributed file systems 
and distributed devices, with no 
need for a central file server. 


Since QNX is modular, programmers 
can easily adapt and enhance the 
OS itself by adding their own 
system task. PC-DOS 2.1 or 3.1™ 
can run as one of QNX’s many tasks. 


With over 20,000 QNX systems 
installed worldwide, QNX is the 
undisputed standard for real-time 
microprocessor applications. 


C Compiler 
Flexibility 


Standard Kernighan and Ritchie. 
Single PC, networked PC's, 
Single PC with terminals, 
Networked PC’s with terminals. 
No central servers. Full sharing of 
disks, devices and CPU's. 
PC-DOS runs as a QNX task. 
From US $450. 

Runtime pricing available. 





For further information or a free demonstration diskette, 
please telephone (613) 726-1893. 


The only multi-user, multi-tasking 
networking operating system 


for the IBM PC, AT 
and compatibles. 


By Quantum. 


XENIX is a registered trademark of the Microsoft Corporation. Unix is a registered trademark of AT&T Bell Labs. IBM PC, AT, XT and PC DOS are trademarks of IBM Corp. 


Quantum Software Systems Ltd., Moodie Drive High Tech Park, 215 Stafford Road, Unit 104, Ottawa, Ontario, Canada K2H 9C1 
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CUBIC SPLINES 


Listing One (Text begins on page 24.) 


/* SPLINE.C - Interpolate Smooth Curve 

* 

* Version 2.00 December 25th, 1985 
* 

* Modifications: 

* 

* V1.00 (85/11/01) - beta test release 
* V2.00 (85/12/25) - general revision 

x 

* Copyright 1985: Ian Ashdown 

* byHeart Software 

= 620 Ballantree Road 
West Vancouver, B.C. 
* Canada V7S 1W3 

* 


This program may be copied for personal, non-commercial use 


* only, provided that the above copyright notice is included in 


all copies of the source code. Copying for any other use 


* without previously obtaining the written permission of the 


* author is prohibited. 


* 


* Credits: 


* 


* 


*y 


arbitrarily constrained to be greater than or 
equal to zero. 


The above description is a reworded and expanded 
version of that appearing in the “UNIX Programmer's 
Manual", copyright 1979, 1983 Bell Laboratories. 


/*** Definitions ***/ 


#define FALSE 0 
#define TRUE 1 
#define MAX SIZE 1000 /* Input point array limit */ 


#define 
#define 
#define 
#define 
#define 
#define 


ILL_ARG 
ILL_CMB 
ILL _KVL 
ILL _NVL 
ILL OPT 
ILL _XVL 


/* Error codes */ 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
x 
*« 
x 
*x 
* 
x 
* 
* 
* 
x 
* 
*x 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
x 
* 
* 
* 
* 
x 
x 
* 
* 
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Synopsis: 


Description: 


Diagnostics: 


Bugs: 


SPLINE [option] ... 


SPLINE takes pairs of numbers from the standard 
input as abscissae and ordinates of a function. 
(A minimum of four pairs is required.) It 
produces a similar set, which is approximately 
equally spaced and includes the input set, on the 
standard output. The cubic spline output (R.W. 
Hamming, "Numerical Methods for Scientists and 
Engineers", 2nd ed. 349ff) has two continuous 
derivatives and sufficiently many points to look 
smooth when plotted. 


The following options are recognized, each as a 
separate argument: 


-a Supply abscissae automatically (they are 
missing from the input); spacing is given by 
the next argument or is assumed to be 1 if 
next argument is not a number. 


-k The constant "k" is used in the boundary 
value computation 


yf egy Fy te ky * 
0 1 n n-1 


is set by the next argument. By default, 

k = 0. A value of k = 0.5 often results ina 
smoother curve at the endpoints than the 
default value. Negative values for k are not 
allowed. Cannot be used with -p option. 


-n Next argument (which must be an integer) 
specifies the number of intervals that are to 
occur between the lower and upper “x" limits. 
If -n option is not given, default spacing is 
100 intervals. 


-p Make output periodic, i.e. match derivatives 
at ends. First and last input values must 
agree. Cannot be used with -k option. 


-x Next 1 (or 2) arguments are lower (and upper) 
"x" limits. Normally these limits are 
calculated from the data. Automatic abscissae 
start at lower limit (default 0). If either 
argument is outside of the range of 
abscissae, it is ignored. 


When data is not strictly monotone in "x", SPLINE 
reproduces the input without interpolating extra 
points. 


A limit of 1000 input points is silently 
enforced. 


The -n option has not been implemented in 
accordance with the “UNIX Programmer's Manual" 
specification. This was done to avoid ambiguities 


when the -n option follows the -x option with one 
argument. 


At certain negative values for the -k option (for 
example, k equals -4.0), the curve becomes 
discontinuous. The -k option value has thus been 


0 
1 
2 
3 
4 
i 5 
#define INS INP 6 
#define MIS KVL 7 
#define MIS NVL 8 
#define MIS XVL 9 
#define MIS _YVL 10 
#define NMT_ORD 11 
#define SQUARE (a) a*a 
#define CUBE(a) a*a*a 


/*** Typedefs ***/ 


typedef int BOOL; /* Boolean flag */ 


/*** Include Files ***/ 


#include <stdio.h> 
#include <ctype.h> 
#include <math.h> 


/*** Main Body of Program ***/ 


int main (argc, argv) 
int argc; 
char **argv; 
{ 
int n =0, 
i, 
3, 
n_val = 0, 
atoi(); 
float x(MAX_SIZE}, 
y (MAX_SIZE}; 
double a _ val = 1.0, 
k_ val = 0.0 


x1 val = 0.0, 
x2 val = 0.0, 
x _intvl, 
ney 
iy, 
d2y [MAX SIZE], 
h, 
atof(), 
fabs (), 
spl_int(); 
char buffer[257], 
*temp, 
*gets(); 
BOOL aflag = FALSE, /* Command-line option flags */ 
kflag = FALSE, 


pflag = FALSE, 
xlflag = FALSE, 


x2flag = FALSE, 
is float(); 


void spl _coeff(), 
pspl_coeff(), 
error(); 


/* Parse the command line for user-selected options */ 


while (--argc) 
{ 
temp = *++argv; 
if(*temp != ‘-'‘) /* Check for legal option flag */ 
error (ILL _OPT, *argv); 
else 
switch (toupper (*++temp) ) 


(continued on page 81) 
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Dr. Dobb’s Catalog 


Insiae: 
Dr. Dobb’s Bound Volumes 


The Toolbook of FORTH 


This comprehensive 
collection of useful Forth 
programs and tutorials 
contains exanded and 
revised versions of DDJ’s 
best Forth articles, along 
with new Forth material. 
In addition to the 
practical code and 
tutorials, you’ll glean 
important insights about 
the potential of this 
increasingly popular 
language from the many 


in-depth discussion of 
advanced Forth topics. 


You'll find 
sections on: 


Forth—the Language, 
including ‘ ‘The Forth 
Philosophy,” “Teaching 
Forth as a First 
Language” and “‘Forth- 
83 and Vocabularies” 


Mathematics in FORTH 
including “Series 
Expansion i in Forth,” 
“FORTH Floatin 
Package,” “Signe 
Integer Division” 


‘Point 


Modifications / 
Extensions, including “A 
Proposal for Strings in 
Forth,” “Non 
Deterministic Control 
Words,” “Some Forth 
Coding Standards,” 
“Towards a More 
Writable Forth Syntax” 


Implementing FORTH, 
including “Forth and the 
Motorola 68000,” “A 
68000 Forth Assembler,” 


‘A Forth Assembler for 
the 6502,” “Z8000 
Forth” 


Forth Programs, 
including “GO in Forth,” 
“Elements of a Forth 
Data-Base Design,” “The 
Forth Sort,” “SEND & 
Rew ‘Interface fora 
Mouse,” “Relocating 
Loader in Forth,” “Forth 
Decompiler,” “Screen- 
Oriented Editor 
Revisited,” “Evolution of 
a Video Editor,” ““H-19 
Screen Editor” and “‘The 
Conference Tree” 
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Dr. Dobb’s Listings on Disk 
Dr. Dobb's 280 Toolbook 
A Complete € Toolbox 


A NEW Version of fhe 
Unix-like Shell & 
Utility Package 


You'll also find 
Appendices that will help 
you convert fig-Forth to 
Forth-83, and tell you 
how to stay up-to-date on 
the latest developments 
and refinements of this 
popular language. 


The screens in this book 
are also available on disk 
as Ascii files. Receive Dr. 
Dobb’s Toolbook of Forth, 
along with the software on 
disk, together for only 
$39.95. 


Dr. Dobb’s Toolbook of Forth 
Item #030 $22.95 
Toolbook with Disk 


Item #031 $39.95 
Please specify MS/PC 
DOS, Apple I, 


Macintosh, or CP/M. For 
CP/M disks, ee 
Osborne or 8” SS /SD 


for MS-DOS 


lo Order: 


To order any of Dr. 
Dobb’s products, return 
the order form at the 
end of this catalog, or 


CALL TOLL FREE 
1-800-528-6050 
EXT. 4001 


and refer to product 
item number, title, and 
Cisk format. 

For customer service 
questions, 


CALL M&T 


PUBLISHING, INC. 
415-366-3600 EXT. 216 





M&T BOOKS 
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Dr.Dobh’s Catalog 


Programs by the Pound 


Announcing: 

Dr. Dobb’s Bound 
Volume 9 

Over 1000 pages of listings 
and text. The entire 1984 
editorial contents of Dr. 
Dobb’s Journal of Sof- 
tware Tools. 

Bound Volume 9: 1984 
Item #020B 


Shaping things to come. In 
1984 new Editor-in-chief 
Mike Swaine brought his 
interests in advanced 
technology to Dr. Dobb's 
Journal. We presented the 
concepts behind Prolog 
and published an expert 
system for weather pre- 
diction. We learned 
Modula-2, and taught 
Forth to talk to a 68000, to 
MS DOS, and to the people 
of China. We examined a 
new language implementa- 


tion called Turbo Pascal 
and extended implementa- 
tions of C with a pre- 
processor, a library, Tony 
Skjellum’s tricks, and 
Allen Holub’s Grep. We 
published two powerful 
encryption systems, tele- 
communications protocols, 
floating-point benchmark 
results, and an issue 
devoted to the internals of 
Unix. And Ray Duncan, 
Bob Blum, and Dave 
Cortesi were on hand with 
their fascinating columns. 
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Bound Volume 1: 1976 
Item #013 

The working notes of a 
technological revolution. 
Programmers from De- 
fense laboratory systems 
analysts to kitchen-table 
entrepreneurs worked for 
the intrinsic rewards to put 
development software on 
the brand-new invention, 
the microcomputer. 
Before there was an Apple, 
Dr. Dobb’s Journal of 
Tiny Basic Calisthenics 
and Orthodontia (subtitle: 
Running Light without 
Overbyte) was founded to 
put a programming lan- 
guage on the machine, and 
became both chronicler 
and instrument of the revo- 
lution. In this first-year 
volume: Tiny Basic, the 
first word on CP / M, notes 
on building an IMSAI, 
floating-point and timer 
routines. 


Bound Volume 2: 1977 
Item #014 

Running light without 
overbyte. By year two, Dr. 
Dobb’s formula was 
concocted: tough 
questions and serious 
technical issues handled 
with enthusiasm, and wit, 
scant reverence for the 
accepted answers. Source 
code. Tools for program- 
mers. Respect for tight 
programming. Dr. Dobb’s 
Journal readers shared 
insights on warping the 
Intel 8080 into a computer 
CPU, and Dr. Dobb’s 
published a complete 
operating system for the 
chip. A motley crop of 
computers and software 
products were popping up, 
and Dr. Dobb’s investi- 
gated: the Heath H-8, the 
KIM-1, the Alpha Micro, 
MITS Basic, Poly Basic, 


Bound Volumes 


and Lawrence Livermore 
Labs Basic. Dr. Dobb’s 
introduced Pilot for micro- 
computers and published 
tips on doing string 
handling, high-speed I/O, 
and turtle graphics in 
limited memory. 


Bound Volume 3: 1978 
Item #015 

The roots of the Silicon 
Valley growth. In 1978 
Steve Wozniak and other 
programmers were pub- 
lishing in Dr. Dobb’s 
Journal code that would 
help them grow multi- 
million-dollar computer 
companies. The proposed 
S-100 bus standard was 
hashed out in Dr. Dobb’s 
pages. Dr. Dobb’s con- 
tributors began to speak 
more in terms of technique 
than of specific 
implementations as the 
industry began to diver- 
sify. Languages covered in 
depth included SAM76, 
Pilot, Pascal, and Lisp. 


To Order: 


To orderany ofDr. Dobb’s 
products, return the 
order form at the end of 
this catalog, or 


CALL TOLL FREE 
1-800-528-6050 
EXT. 4001 


and refer to productitem 
number, title, and disk 
format. 

Forcustomer service 
questions, 


CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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Bound Volume 4: 1979 
Item #016 
In the midst of the Gold 
Rush. Three years before 
IBM would release its PC, 
a thriving, rough-and- 
tumble personal computer 
industry existed. Fortunes 
had been made and lost, 
the effective power of the 
machine multiplied a 
hundredfold. By 1979 
some stability had even 
emerged; one could speak 
of the processors that had 
proven longevity as micro- 
computer CPUs; the 8080, 
the Z80, the 6800, and the 
6502. Dr. Dobb’s Journal 
focused on the best ways to 
use these processors, with 
algorithms, tips, and code 
for 8- to 16-bit conversion, 
pseudo-random number 
generation, micro-to- 
mainframe connections, 
telecommunications, and 
networking. And lots of 
useful code. 


Bound Volume 5: 1980 


Item #017 

The preeminence of CP/ 
M and the rise of C. More 
than any other magazine, 
Dr. Dobb’s Journal was 








responsible for the spread 
of CP/M and C on micro- 
computers. Both of those 
movements began in 1980. 
Dr. Dobb’s all-CP /M 
issue, including Gary 
Kildall’s history of CP/M, 
sold out within weeks of 
publication. This was the 
year of Ron Cain’s original 
Small C complier, of a 

CP /M-oriented C inter- 
preter, CP /M-to-UCSD 
Pascal file conversion 
techniques, ans a greater 
concern in Dr. Dobb’s with 
software portability. 


Bound Volume 6: 1981 
Item #018 

The first of Forth. 1981 
saw Dr. Dobb’s first all- 
Forth issue (now sold out), 
along with an emphasis on 
CP/M, C, telecommuni- 
cations, and new 
languages, David Cortesi 
began “Dr. Dobb’s 
Clinic,” one of the 
magazine’s most popular 
features. Highlights 
included information on 
PCNET, the Conference 
Tree, the Electronic Phone 
Book, Tiny Basic for the 
6809, writing your own 
compiler, and a systems 
programming language. 
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Bound Volume 7: 1982 


Item #019 

Legitimacy. By 1982 IBM 
had become a player in the 
personal computer game 
and was changing the 
rules. New micropro- 
cessors arrived, the first 
designed speicifcally to 
serve as personal computer 
CPUs. In Dr. Dobb’s 
Journal Dave Cortesi 
published the first serious 
comparison of MS DOS 
and CP/M-86. Dr. Dobb’s 
started two new columns: 
the CP/M Exchange, asa 
rearguard maneuver to 
ensure that good tools for 
CP/M programmers 
would continue to be 
developed and circulated, 
and the 16-Bit Software 
Toolbox to investigate the 
8088 /86 and other new 
microprocessors. We 
published code for the 
68000 and Z8000 pro- 
cessors, and looked ahead, 
in a provocative essay, to 
fifth-generation 
computers. 


Bound Volume 8: 1983 
Item #020 

Power Tools. Personal 
computers were proving 
themselves to be true 
professional software 
development tools by 

1983, the year in which 
Jim Hendrix completed 
his “canonical” version of 
Small Cin Dr. Dobb's 
Journal. Dr. Dobb's 
published more 68000 and 
8088 code, and as the 
memory limitations 
relaxed, the magazine’s 
commitment to tight code 
let it shoehorn impossibly 
large systems into 
memory. Small C was just 
one of the major software 
products published in their 
entirety in Dr. Dobb’s 
pages that year; there were 


Bound Volumes 


Ed Ream’s RED screen 
editor and a version of the 
Ada language called 
Augusta. 


Buy the complete set 
and save 15% 

If you buy all nine 
volumes, covering the 
entire editorial content of 
Dr. Dobb’s Journal of 
Software Tools from the 
first issue in 1976 through 
1984, you pay just $225. 
That’s a 15% discount and 
over $40 off the combined 
individual prices. To order 
the complete set of Bound 
Volumes | through 9, ask 


for item #020C. 

Vol.l Item#013 $27.75 
Vol.2 Item#014 $27.75 
Vol.3 Item#015 $27.75 
Vol.4 Item #016 $27.75 
Vol.5 Item#017 $27.75 
Vol.6 Item#018 $27.75 
Vol.7 Item#019 $39.75 
Vol.8 Item#020 $31.75 
Vol.9 Item#020B $35.75 
All 9 volumes 

Item #020C $225.00 


To Order: 


To orderany ofDr. Dobb’s 

products, return the 
order form at the end of 
this catalog, or 

CALL TOLL FREE 
1-800-528-6050 

EXT. 4001 

and referto product item 
number, title, and disk 

format. 

Forcustomer service 
questions, 

CALL M&T 

PUBLISHING, INC. 

415-366-3600 EXT. 216 
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A collection of powerful tools 
for C software developers, 
including books, software on 


disk, and reference materials 
from the publisher of Dr. Dobb’s 
Journal Of Software Tools 





From M &T Publishing 
and Brady 
Communications... 


Dr. Dobb’s 


Toolbook of C 
Item #005 
The Toolbook contains 
over 700 pages of C mater- 
ial, including articles by 
such C experts as Kern- 
ighan and Ritchie, Cain 
and Hendrix, Skjellum 
and Holub. The level is so- 
phisticated and pragmatic, 
appropriate for pro- 
fessional C programmers. 
The most valuable part 

of the Toolbook to many 
will be the hundreds of 
pages of useful C source 
code, including a complete 
compiler, an assembler, 
and text-processing util- 
ities. The accompanying 
text explains, in the pro- 
grammers’ own words, 
wy they did what they 

1 


Dr. Dobb’s Journal of 
Software Tools introduced 
a generation of personal 
computer programmers to 
the C programming lan- 
guage, and all the best C 
articles and code published 
in Dr. Dobb’s over the 
years is included and up- 
dated in the Toolbook, in 
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cluding Ron Cain’s orig- 
inal Small C article and 
articles from sold-out 
issues. But the Toolbook 
also includes material 
never before published, in- 
cluding Jim Hendrix’s 
complete macro assembler 
inC. 

Dr Dobb’s offers the 
Toolbook in a special hard- 
bound naps for just 
$29.9 
Yow’ fi find: 

Jim Hendrix’s famous 
Small C Compiler and New 
Library for Small C (both 
also available on disk), 
NEW: Hendrix’s Small 
Mac: An Assembler for 
Small C and Small Tools: 
Programs for Text Pro- 
cessing (both also 
available on disk), All of 
Tony Skjellum’s C Pro- 
grammer’s Notebook 
columns distilled by Tony 
into one thought- 
provoking chapter. 


Dr. Dobb’s C 


Software Tools on Disk 
To complement the Tool- 
book, Dr. Dobb’s also 
offers the following pro- 
grams on disk. Full C 
source code and documen- 
tation is included. Except 
where indicated, both CP / 
M and MS/PC DOS ver- 
sions are available. 

| 
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Also from 
M &T Publishing and 
Brady Communications. . 


The Smali C 
Handbook 

Item #006 or #006A 

Jim Hendrix’s Small-C 
Handbook is the reference 
book on his Small-C com- 
piler. In addition to de- 
scribing the operation of 
the compiler, the book 
contains complete source 
listings to the compiler and 
its library of arithmetic 
and logical routines. 


Hendrix has ported the 
corns tothe MS/PC 

DOS environment since 
the Handbook was printed, 
and the Handbook plus his 
MS/PC DOS Handbook 
Addendum, Item #006A, 
is $22.95. 


A perfect companion to 
the Hendrix Small-C com- 
piler offered by Dr. Dobb’s 
on disk, the Handbook 
even tells how to use the 
compiler to generate a new 
version of itself. 

While both the Hand- 
book and the Toolbook 
provide documentation for 
the Small-C compiler, the 
Handbook contains a more 
detailed discussion and is 
available with an adden- 
dum for the MS/PC DOS 
version. 

The Handbook, Item 
#006, is just $17.95. Jim 


Small-C Compiler 
Item #007 

Jim Hendrix’s Small-C 
Compiler is the most popu- 
lar piece of software ever 
published in Dr. dobb’s 10- 
year history. Like a home- 
study course in compiler 
design, the Small-C Com- 
piler and Small-C Hand- 
book provide everything 
you need but the computer 


_ Comple fe C Toolbox 


for learning how compilers 
are constructed, and for 
learning C at its most 
fundamental level. 


While both the Hand- 
book and the Toolbook 
provide documentation for 
the Small-C compiler, the 
Handbook contains a more 
detailed discussion and is 
available with an adden- 


dum forthe MS/PC DOS 
version. The MC/PC DOS 
Small-C Handbook Ad- 
dendum is recommened in 
addition to the Handbook 
for MS DOS or PC DOS 
users. 

The Small-C compiler is 
available for $19.95 in 
either the CP/M or the 
MS/PC DOS version ‘ 





To oe 


To order any of Dr. 


Dobb’s products, return = ee 


the order form at the end 
of this catalog, or 


CALL TOLL FREE 
1-800-528-6050 
EXT. 4001 


and refer to product 
item number, title, and 
disk format. 
For customer service 
questions, 


CALL M&T 
PUBLISHING, INC. 
415-366- Bo EXT. 216 
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Dr.Dobb’s Catalog Dr. Dobb’s 
Complete C Toolbox 










Small-Mac: An product prices, you can 

Assembler for Smalll-C | ssh eC otra nen 

[tem #012A tools for your CP/M or 

Small-Macisanassembler | ys /PCDOS system 

designed _ oo simplic- 

ity, portability, adapt- C Package for CP/M 

ivandedytinal | Cask ae ot teat 

faaee Ordered individually, 

aes aeialke Fo Pcaininas these items would cost Item #008 $495 

PEE Sipe ni ah ae 8 about $120. If you order Small Tools: 

abies le visibility, the CP/MC package, Programs for 

ioe tive error ea S- you Il get Dr. Dobb’s Tool- Texte a disk 
P : book, the Small-C Hand- ne as 

Sages, and an externally- book, the Small-C C & manual 

defined machine instruc- eek ene es ee 


tion table. You get the 
macro assembler, linkage 
editor, load-and-go loader, 
library manager, CPU 
configuration utility, and a 
utility todump relocatable 
files. 

Small-Mac is available 
with documentation for 
$29.95. For CP/M 
systems only. 


Small-Tools: Programs 


for Text Processing 
Item #O10A 
A package of programs 
performing specific, 
modular operations on text 
files, including: editing: 
formatting; sorting; merg- 
ing; listing; printing: 
searching; changing; 
transliterating; copying: 
concatenating; encrypting 
and decrypting; replacing 
Spaces with tabs and tabs 
with spaces; counting 
characters, words, or lines; 
and selecting printer fonts. 
Supplied in source code 
form so you can select and 
adapt these tools to your 
Own purposes. 
Small-Tools is available 
with documentation for 
$29.95. For CP/M or 
MS/PC DOS systems. 


Special Packages— 


20% Off 
Now for almost 20% off 
the combined individual 


piler on disk, the Small- 
Mac assembler on disk 
with documentation in the 
Small-Mac Manual, the 
Small-Tools text-process- 
ing programs on disk with 
documentation in the 
Small-Tools Manual, all 
for just $99.95, 


C Package for 
MS/PC DOS 

Item #005B 

These items would cost 
over $100 if purchased 
individually. If you order 
the MS/PC DOS C pack- 
age, you'll get Dr. Dobb’s 
Toolbook, the Small-C 
Handbook with the MS / 
PC DOS Addendum, the 
Small-C Compiler on disk, 
the Small-Tools text- 
processing programs on 
disk with documentation 
in the Small-Tools 
Manual, all for just 
$82.95. 


Dr. Dobb’s 
Sourcebook: 

A Reference Guide to 
the C Programming 
Language 

Item #004 

Products and services for 
C programmers are ap- 
pearing at sorapid arate 
that it’s all but impossible 
to keep up with them. Dr. 
Dobb's presents this handy 
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guide to the who, what, 
when, where, and why of 
C. A comprehensive refer- 
ence manual to new in- 
formation, products, and 
services, the Sourcebook 
contains: 
¢ A bibliography of over 
300 articles and books on 
the C language; 
¢ A descriptive list of 
products for C pro- 
grammers: compilers, 
editors, interpreters, and 
utilities; 
¢ A list of C-related 
services: classes, 
seminars, and on-line 
Services. 
The Sourcebook is just 
$7.95. Dr. Dobb’s Source- 
book: A Reference Guide 


to the C Programming 
Language 
Item #004 $ 7.95 


Dr. Dobb’s Toolbook for C 
Item #005 $29.95 


The Small-C Handbook 
Item #006 $17.95 


The Small-C Handbook 
and MS/PC-DOS 
Addendum 

Item #006A $22.95 


Small-C Compiler disk 
Item #007 $19.95 


Item #O10A $29.95 


Small Mac: An Assembler 
for Small-C disk (For CP / 
M only ) & manual . 

Item #012A $29.95 


CP/M C Package 
Item #005A $99.95 
MS/PC DOS C Package 

Item #005B $82.95 


For CP/M disks, please 
specify one of the 
following formats: Apple, 
Osborne, Kaypro, Zenith 
= 00 DS/DD, 8” SS / 


lo Order: 


To order any of Dr. 
Dobb’s products, return 
the order form at the end 
of this catalog, or 


CALL TOLL FREE 
1-800-528-6050 
EXT. 4001 


and refer to product 
item number, title, and 
isk format. 
For customer service 
questions, 


CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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David E. Cortesi 
longtime Dr. Dobb's 
columnist and author 
of Inside CP/M 
brings you — 


Dr. Dobb's 
Z80 Toolbook 


Here’s all you need to write 
your own Z80 assembly 
language programs for 
only $25! 


Do you use CP/M? Do you 
feel as if the only part of the 
computer industry that has 
not abandoned you is your 
own Z80 computer? It keeps 
on working, but when you 
need programs for it, you 
have to write them yourself. 
When you do, you quickly 
find that while Pascal or 
BASIC is okay for some 
things, there is often no 
substitute for the speed, 
small size, and flexibility 
of an assembly language 
program. 


Dr. Dobb’s Z80 Toolbook 
puts the power of assembly 


language in the hands of 
anyone who’s done a little 


programming. You'll find: 
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** A method of designing 
programs and coding them in 
assembly language. Cortesi 
will take you on a walk 
through the initial specifica- 
tions, designing an algorithm 
and writing the code. He 
demonstrates this method 
in the construction of several 
complete, useful programs. 





Dr. Dobb’s 





Z80 Toolbook 


** A complete, integrated tool- 
kit of subroutines for arith- 
metic, for string-handling, 
an for total control of the 
CP/M file system. They 
bring the ease and power of 
a compiler’s runtime library 
to your assembly language 
work, without a compiler’s 
size and sluggish code. 

Best of all, every line of the 
toolkit’s source code is there 
for you to read, and every 
module’s operation is 
explained with the clarity 
and good humor for which 
Dave Cortesi’s writing is 
known. 


Order the Z80 
Software on Disk! 
Save Yourself the 
Frustration of 

File Entry 


All the software in Dr. Dobb’s 
Z80 Toolbook—the programs 





plus the entire toolkit, both 
as source code and as object 
modules for both CP/M 2.2 
and CP/M Plus—is yours on 
disk. (A Z80 microprocessor 
and a Digital Research Inter- 
national RMAC assembler 
or equivalent are required.) 


Receive Dr. Dobb’s Toolbook 
for Z80, along with the 
software on disk, together for 
only $40! 


Dr. Dobb’s Toolbook for Z80 
Item #022 $25 


Dr. Dobb’s Toolbook for Z80. 
together with software on 
disk. Please specify one of 
the following formats: 8” 
SS/SD; Apple; Osborne: 
Kaypro. 


Item #022A $40 


Most of the programs are 
included in the book; 
however, the disk is 
necessary for complete 
listings 


To Order: 


To order any ofDr. Dobb's 
products, return the 
order form at the end of 
this catalog, or 


CALL TOLL FREE 
1-800-528-6050 
EXT. 4001 


and referto product item 
number, title, and disk 
format. 

For customer service 
questions, 


CALL M&T 


PUBLISHING, INC. 
415-366-3600 EXT. 216 
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Dr.Dobb's Catalog A UNIX-like Shell and Utility 
Package for MS-DOS 


A UNIX-like Shell for A 2048-byte command line 


MS-DOS, V.2 and A 
UNIX-like Utility 
Package for MS-DOS by 
Dr. Dobb’s C-Chest 
Columnist, Allen Holub 


is supported. Command- 

line wild card expansion. 

Multiple commands on a 
line. 

DOS-compatible prompt 












Only $29.95 each! support $d $t$—$e$h $n 
If youarea $q $$ $% 
registered user or C-Shell Based Shell 
have already area files) He : ta. mee 
. ariablesaremacrosthat 0 

. oe eee sion I can beusedonthe _ oe 

eonei'trom command line. Version 2 and Getargs from DDJ’s C — 
DDJ, youcan supports arithmetic Chest. ~_ 
receive the upgrade | manipulation of shell Source code is included 
for only $6! variables using the @ and all programs (and ORDER THE SHELL 

rebmti ie The sown. a of the Rae AND /UTIL 
THES : operators are supported: subroutines) are fully 
ee HELL Version ’ sages [_ Gh, Be documen te dina UNIX. ssor FOR ONLY 
. = ~ = style manual. You’ll fin é 

ace Te . ‘on af the = Sa) ooo N= executable versions of: SAVE OVER 15% 
most often used parts of A batch file can call cat A file concatenation The Shell runs on 
the UNIX C Shell. This another batch file like a and viewing program IBM PC’s and compatibles 
package includes an subrOne sootrolis ep AA tile copy utility The Shell 
Secu bie canon ofthe passed to the second file date Prints the current i #1 60 
shell, along with the and then back to the first time and date = «$29.95 
‘ ompl ele C aoiiree code when the second is finished. du Prints amount of space Shell Upgrade Disk 
and full documentation Batch files can return available and used on disk for owner of the Shell v. 1 
Supported features are- values to the calling file echo Echoes its arguments Item #160A $ 6.00 
Editing Command-line usin e the exit and $status to standard output util 
editing with the cursors is mechanisms. grep Searches for a pattern tem #161 $29.95 
supported Thelineis | SpowertuLiterpretive, | defined by aregular ~~” | Shel /util Package 
ee a ad based on the UNIX C Ls Gets a sorted directory Oe ee me 
change the names of Shell, is now supported, mkdir Creates a directory To Order - 
commands or as very fast including: my Renames a file or 
memory-resident, batch ° if/then /else directory. Moves files to lo order any ofDr. Dobb’s 
files. Nested aliases are while another directory procucts, retum the 
supported in version 2 foreach p Prints a file, one page at a order form at the end of 
History You can execute switch /case SOME 8 CORNGT 
previous commands. The break pause Prints a message and CALL TOLL FREE 
command can be edited tee : : waits for a response 1-800-528-6050 
before being executed. aoe scan be printeny Prints all the EXT. 4001 
Version 2 supports pet A cea ate and refer to product item 
embedded history requests /util Giles number, title, and disk 


(bar; !!>foo). 


A UNIX-like Utilit 


rmdir Deletes one or more 


format. 


een — _— Package for MS-DOS directories _ For customerservice 
>& “eek This collection of utility sub Text substitution questions, 
! programs for MS-DOS utility. Replaces all CALL M&T 
Pipe temporary files can be poe updates of the matches of a regular PUBLISHING, INC. 
put ona RAM disk. ighly acclaimed Dr. expression with another 415-366-3600 EXT. 216 
Dobb’s articles Grep: A string. 
Unix-like Command UNIX-Like Generalized chmod change all file ie Ad 
Syntax: f can be used to Regular Expression attributes (write eS 
separate directory names Processor Ls from Dr. permission, hidden, 
(\ can now be used aswell). | Dobb’sC Chest column, system, archive bit). 
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Dr. Dobb’s Listings 


You can save time 
entering Dr. Dobb’s 
valuable code listings! 
Selected listings from this 
August 1986 issue, along 
with listings from all 
previous 1986 DDJ issues, 
are yours on disk! 

Now, as a useful adjunct 
to the magazine, DDJ 
offers the additional value 
and convenience of 
selected listings from each 
1986 issue, on disk. The 
first two of three Dr. 
Dobb’s 1986 Listings 
disks, featuring a 
collection of listings from 
the DDJ January 1986 
issue through this August 
1986 issue, are now 
available. 

And, in case you missed a 
single valuable issue of Dr. 
Dobb’s Journal of 
Software Tools, while the 
supply lasts you can also 
receive any available 1986 
back issue for only $2.50 
each when you purchase a 
DDJ Listings disk. That’s 
a savings of 50% off the 
regular back issues price! 


Dr. Dobb’s Listings 
Disk # 1/86 January— 
April 1986 You'll find 
listings from the following 
articles, among others: 


From issue #111 
January 1986 

** 4 Simple OS for Real- 
time Applications; 68000 
assembly language 
techniques for an 
operating system kernel 
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by DDJ editor Nick 
Turner 

** F’xec calls and Fortran; 
a technique allowing 
execution of a user or 
system task from a user 
program from DDJ’s 16- 
Bit Software Toolbox, by 
Robert Sypek 


** 32-bit Square Roots; 
An 8086 assembly- 
language routine for 32- 
bit square roots by 
Michael Barr 

(Sorry, back issue #111 is 
sold out) 


From Issue #112 
February 1986 

** Fast Integer Powers for 
Pascal; An 
implementation of the 
fastest-known algorithm 
for the computation of 
integer powers by Dennis 
E. Hamilton 

** Data Absrtaction with 
Modula-2; Construction 
of a priority queue in 
Modula-2 by Bill Walker 
and Stephen Alexander 
** J earning Ada ona 
Micro, A draw poker 
program in Ada by Do- 
While Jones 

** Fast IBM PC graphics 
routines from DDJ’s 16- 
Bit Software Toolbox, by 
Dan Rollins 

(Sorry, back issue #112 is 
sold out) 


From Issue #113 
March 1986 


** Recursive Bose-Nelson 
Sort; An alternative to Joe 
Celko’s September 1985 
sort routine by R.J. 
Wissbaum 

** 4 Variable- Metric 
Minimizer; A C program 
for miniimizing arbitrary 
functions by Joe Marasco 
** Concurrancy and 

Turbo Pascal; An 
approach to implementing 
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and Back Issues 


coroutine in Pascal by 
Ernest Bergmann 

** Speeding MS DOS 
Disk Access; Programs to 
test disk-access speed by 
Greg Weissman 

** Square Roots on the 
NS32000; Comparable 
square root routines in C 
and ey language 
for Nationa 
Semiconductor's 32000 
family by Richard 
Campbell 


From Issue #114 
April 1986 

** Boca Raton Inference 
Engine; Lisp, Prolog, and 
Expert-2 techniques and 
code by Robert Brown 


Dr. Dobb’s Listings 
Disk #2/86 May- 
August 1986 

You’ll find listings from 
the following articles, 
among others. 


From issue #115 
May 1986 

** Simple plots with the 
Enhanced Graphics 
Adapter by Nabajyoti 
Barkakati 

** The Cryptographer's 
Toolbox by Fred A. 
Scacchitti 


From Issue #116 
June 1986 

** Structured 
Programming: 
Overloading Procedures, 
Exporting Opaque Types, 
Data Hiding by Namir 
Shammas 


** Compuserve B Protocol 
by Steve Wilhite 


From Issue #117 
July 1986 

** Structured 
Programming: Tiny 
Tools, Array-Defining 
Words by Michael Ham 
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From Issue #118 
August 1986 

** Structured 
Programming: Generic 
Routines in Ada and 
Modula-2, Extended for 
Loop by Namir Shammas 


Dr. Dobb’s Listings Disk 
#1/86 

Item #170 $14.95 
Dr. Dobb’s Listings Disk 
#2/86 


Item #171 $14.95 


Please specify MS/DOS, 
Macintosh, or CP/M. For 
CP/M disks, please 
specify one of the 
following formats: Apple, 
Osborne, Kaypro, Zenith 
Z-100 DS/DD, 8” SS/ 
SD: 

To order any DDJ 1986 
back issue at the 
discounted price of only 
$2.50 each with your Dr. 
Dobb’s Listings Disk, 
please specify the issue 
date and number on the 
order form. January Issue 
#111 and February Issue 
#112 aresold out. 


To Order: 


To order any ofDr. 
Dobb’s products, return 
the order form at the end 
of this catalog, or 


CALL TOLL FREE 
1-800-528-6050 
EXT. 4001 


and refer to product item 
number, title, and disk 
format. 

For customer service 
questions, 


CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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ORDER NOW | 
For Faster Service 
NAME On Credit Card Orders 
(Please use street address, not P.O. Box) 
pena " CALL TOLL FREE 
IP 
CITY STATE Z Ex?. 4 O O ] 
DAY PHONE Please Refer To Item # 
When Ordering 
en Ref df dard f ‘lability £ iain Or, Fill Out This Postage Paid, 
For — orders, prease indicate obtaat. ¢ler to ad for standard format availability for each product. Self-Mailing Order Form 
Special formats available for additional $10 each. And Return To: 
[ ]MS/DOS [_]Macintosh []CP/M Osborne ‘ 
(] Apple II Zenith Z-100 DS/DD Kaypro M&T PUBLISHING INC. 
Apple 8” SS/SD 501 GALVESTON DRIVE 
REDWOOD CITY, CA 94063 
QUANTITY ITEM # DESCRIPTION UNIT PRICE TOTAL PRICE 


SUB-TOTAL 


CA residents must add applicable sale tax on merchandise total % SALES TAX 
(CA residents must add sales tax EXCEPT Dr. Dobb’s Sourcebook #004) SHIPPING 
Shipping must be included with order. See rates below. 








TOTAL ORDER 
In US. For Bound Volumes, add $2.25 per book. Add $8.75 for special C Packages. For other books and disks, add $1.75 
per item. 
Outside US. For Bound Volumes, add $5.25 per book surface mail. Add $18 surface mail for Special C Packages. For 
other books and disks, add $3.25 per item surface mail. Foreign airmail rates available on request. 
[_] VISA NAME ON CARD _ 
[_] MASTERCARD ACCOUNT NO. 
ee een 
[_] AMERICAN EXPRESS EXPIRATION DATE 
a 


[_] CHECK SIGNATURE 
———— a 


(make checks payable 
to M&T Publishing) 





PROMPT DELIVERY! DEALER INQUIRY WELCOME! 


3119S 








Dr. Dobb's Catalog Order 
Please Rush! 





Please fold along fold-line and staple or tape closed. 
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First Class Permit No. 790 Redwood City, CA 


Postage Will Be Paid By Addressee 


Dr. Dobb's Catalog 


501 Galveston Dr. 
Redwood City, CA 94063 


Please fold along fold-line and staple or tape closed. 








CUBIC SPLINES 


Listing One (Listing continued, text begins on page 24.) 


{ { 

case ‘A'; f*- Sea” Option */ if(aflag == TRUE) 
aflag = TRUE; break; 

if(arge > 1 && is float (* (argv+1))) 


else 
{ error (MIS _YVL, NULL) ; 
argc--; } 
argvtt; if(++n == MAX SIZE) /* Maximum amount of input data? */ 
if((a_val = atof(*argv)) <= 0.00) break; 
error (ILL ARG, *argv) ; } 
} if(n < 4) /* Check for insufficient input data */ 
break; error (INS _INP,NULL) ; 
case ‘K': /* *=k* option ~*/ 


if(pflag == TRUE) 


/* Check for non-monotonic abscissae. Output input data set 
error (ILL _ CMB, NULL) ; 


* without interpolation if true. 


kflag = TRUE; x / 

if(argc > 1 && is float (* (argv+1))) 

{ h = x{1) - x(0]; 
arge==; 


for(i = 1; 1 < n-1; i++) 


argvt+t+; if (fabs (x({i+l] - x[{i] - h) > 0.0) 
k_val = atof (*argv); { 


if (k_val < 0.00) 


for(i = 0; i < nj i++) 
error (ILL _ KVL, *argv) ; 


printf ("tg\n%$g\n",x(i],y[1i]})3 


break; exit (); 
} } 
else 
error (MIS KVL, NULL) ; /* Calculate abscissa interval. Use "-x" option values if 
case 'N': /* “-n" option */ 


* they were given unless they fall outside the range of 
if {arge >. 1) * given (or calculated) abscissae. 
{ a 

argc--; 


argvtt; if(xlflag == FALSE || xl_val < x[0}) 
if((n_val = atoi(*argv)) < 1) x1 val = x[0); 


error (ILL _NVL, *argv) ; if (x2flag == FALSE || x2_val > x[n-1]) 


else x2 val = x[{n-1]; 
break; x_intvl = (x2_val - x1_val)/n_val; 
else /* Find the coefficients */ 
error (MIS _NVL, NULL) ; 
case 'P';: /* “=9" option */ 


if(pflag == FALSE) 
spl_coeff(y,d2y,h,n,k val); 
else 
pspl_ coeff (y,d2y,h,n); 


if (kflag == TRUE) 
error (ILL _ CMB, NULL) ; 
pflag = TRUE; 
break; 
case 'X': /* "“—2" option */ 
xlflag = TRUE; 
if(arge > 1 && is float (* (argv+1))) 
{ 
argc--; 
argvt+t+; 
x1_val = atof(*argv); 
} 
else 
error (MIS_XVL, NULL) ; 
if(arge > 1 && is float (* (argv+l))) 
{ 
x2flag = TRUE; } 


/* Interpolate and output results */ 


ix = xl _ val; 

i ‘= 1; 

for(j = 0; 4 <= n_val; j++) 

{ 

while(ix >= x[{i] «& i <n - 1) 
Lah 

iy = spl int (ix,x,y,d2y,h,i); 

printf ("%g\n%g\n", ix, iy); 

ix += x_intvl; 


argc--; 
argvtt; /*** Functions ***/ 
x2 val = atof(*argv); 
if (x2_val <= xl_val) /* SPL COEFF() - Calculate spline coefficients and return in 
error (ILL_XVL,x2_val); : vector “d2y[]". Matrix to be solved has the 
} : typical form: 
ict: /* "=n" option */ . = -+t +- —-+ +- -+ 
error (ILL OPT, *argv); i | 44k 1 0 0 | 1 yl" | =m* | y2 - 2*y1 + yo | 
} 7 * [0 Mod OT 9 1, ¥3.-. 2¥y2 doyl 
} * | O 1 4 0 Lloy3" | | y4 - 2%y3 + y2 | 
if(n_val == 0) /* Set "n val" if not given */ : Lo SSS ee ee Pe eee Fee 
n_val = 100; ‘ 7 Tare ate f = 2 
* * ‘ 
Maer aes Seem 8 . where k = k_val, m = 6.0/(h*h) and yn" is the 
- h fe | 
while (1) /* ... while there is more input data */ j ona tt Stee a a 
{ * Yo" #. Wye", 
if(aflag == TRUE) /* Automatic abscissae were called for */ */ 
{ 
Te ae ls void spl_coeff(y,d2y,h,n,k_ val) 
bier ye float y[]; 
x(n} = x(n-1] + a_val; double oc 
} k val; 
else /* Abscissae supplied with input data */ i He 
{ f 
{ 
if (gets (buffer) ) 
double n, 
x(n] = atof (buffer) ; a({MAX SIZE-1]; 
else int i: a : 
break; . 
} x h ymmetric tridi 1 atrix, where the onl 
if (gets (buffer) ) /* Read in the corresponding ordinate */ Se ee pea SEE eran.) cm ; Y 
y(n] = atof (buffer) ; . 
ahs (continued on next page) 
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CUBIC SPLINES 


Listing One (Listing continued, text begins on page 24.) 


* elements of interest are those on the diagonal. These are afi] = 4.0 - m; 
* stored in array "a[]". Array “d2y[]" initially holds the b(i) -= b(i-1) * m; 
* constants vector, then is overlaid with the calculated d2y[(i]) -= d2y(i-1] * m; 
* variables vector. b[n-1] -= c * m* b{i-1); 
ah d2y(n-1] -= c * m * d2y[i-1l]; 
Gost. %. m7 
m = 6.0/ (h*h}; 


} 

c += 1.0; 

b(n-1] -= c * b[{n-2)/a[n-2); 
d2y(n-1] -= c * d2y[(n-2) /a[n-2); 


for(i = 1; i < n-1l; i++) 
d2y[{i] =m *: (y{itl) - 2.0 * y{i}-+ yli-1)h; 
a{l) = 4.0 + k_val; 


/* Reduce the matrix to upper triangular form */ /* Solve using back substitution */ 
for(i = 22 1 < n-2; i++} 


d2y(0] = d2y[n-1) /= b[n-1); 
{ 


d2y(n-2] = (d2y({n-2]) - b[n-2] * d2y (n-1)) /a({n-2]; 
a{i]) = 4.0 - 1.0/a(i-1]; for(i = n<37. i> 07 1--) 
d2y[(i) -= d2y({i-1]/a[i-1]; d2y[{i] = (d2y{i] - b{i] * d2y[n-1] - d2y[itl]})/a[i); 
} } 
a({n-2] = 4.0 + k_val - 1.0/a[n-3]; 
d2y[n-2] -= d2y[n-3]/a[n-3]; 


/* SPL_INT - Interpolate points using spline function */ 
d2y(n-2] /= a(n-2); 


double spl_int (ix,x,y,d2y,h, 1) 


/* Solve using back substitution */ float x{], 
yO); 
for (i: * n=33)i >}. 1=~) double ix, 
d2y(i}] = (d2y(i] - d2y[it+1))/ali); d2y[], 
h; 
/* Solve for end conditions */ int. 17 
{ 
d2y(n-1] = d2y[(n-2] * k_val; double iy, 
d2y({0} = d2y[{1} * k_val; Gis 
} Cre 
/* PSPL COEFF() - Calculate periodic spline coefficients and tl = (ix - x[i-1])/h; 
* return in vector "d2y[]". Matrix to be solved t2 = (x{i] - ix)/h; 
. has the typical form: iy = y(i-1] * t2 + y[i] * tl - SQUARE(h) * (d2y(i-1] * (t2 - 
= CUBE (€2)): + d2y[i]. * (ti = CUBE (t1)))/6.0; 
% Be a it a a ae ar return iy; 
* peo 6-1 | 1° che * 2 eet yO | } 
* ome 2 8 Ive | y3 - 2*y2 + yl | 
2 Pe 1 a> 1 OF 4 yar | y4 — 2*y3 + y2 | /* IS FLOAT() - Check that character string is in correct floating 
* B96. 01 #2 ee” 4 | yh + 2*y@ + ys | aa point format. Return TRUE if correct, FALSE 
* PP 0. Ob ae A | yl - yO - yS + y4 | * otherwise. The algorithm used is a deterministic 
2 + See ee — “se * finite state machine. Using the regular 
= * expression terminology of Unix's “lex", the 
: where m = 6.0/(h*h) and yn” is the second character string must be of the form: _ 
* derivative of the interpolated function at the 2 
* "nth" abscissa and yO" = y5". k ~2d*.2d* (e|/E(\+|-) 2d+) ? 
x/ * 
kt 


where d = 0{1/2/3/4/516171819 
void pspl_ coeff (y,d2y,h,n) 


af 
float y(]; 
double d2y[], BOOL is float (str) 
h? char *str; 
int n; { 
int.c, /* Next FSM input character */ 
double c, state = 0; /* Current FSM state */ 
mM, 
fabs (); while(c = *strt++) 
static double a[{MAX_SIZE-1]}, { 
b(MAX SIZE]; switch (state) 
Afit: 4 { 
case 0: /* FSM State 0 */ 
/* Check for matching end ordinates */ switch (c) 
{ 
if (fabs (y[{n-1] - y[0]) > 0.0) case °*=*: 
error (NMT ORD, NULL); state = 1; 
= break; 
/* Set up the matrix, where array “a[]" holds the diagonal case ‘.': 
* elements, "b[{]" holds those elements of column "n-1", and state = 3; 
* “c" holds the current element of interest of row "n-1". break; 
* Array “d2y[]" initially holds the constants vector, then is default: 
* overlaid with the calculated variables vector. if (isdigit (c) ) 
x/ state = 2; 
else 
m = 6.0/ (h*h); return FALSE; 
for(i = 1; 1 < n-1; i++) break; 
d2y({iJ] =m * (y[{it1] - 2.0 * y{i) + yfi-1})7 } 
d2y({n-1]) =m * (y[{1} - y{0] - y{n-1]) + y(n-2]}); break; 
afl} = 4.0; case 1: /* FSM State 1 */ 
b{1] = 1.0; switch (c) 
b([n-2] = 1.0; { 
b[{n-1} = 4.0; case: -*.*< 
c= 1.0; state = 2; 
break; 
/* Reduce the matrix to upper triangular form */ default: 
if (isdigit (c) ) 
for(i = 2; i < n-1; i++) state = 2; 
{ 
m = 1/a{i-1}; 
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else 
return FALSE; 
break; 
} 
break; 
case 2: /* FSM State 2 */ 
switch (c) 
{ 
cage *.": 
State = 4; 
break; 
case ‘e's 
case ‘E's: 
State = 5; 
break; 
default: 
1f (isdigit (c) ) 
State = 2; 


else 
return FALSE; 
break; 
} 
break; 
case 3: /* FSM State 3 */ 


if (isdigit (c)) 
State = 4; 
else 
return FALSE; 
break; 
case 4: /* FSM State 4 */ 
switch (c) 
{ 
case ‘e'; 
case 'E': 
state = 5; 
break; 
default: 
if (isdigit (c) ) 
state = 4; 
else 
return FALSE; 
break; 
} 
break; 
case 5: /* FSM State 5 */ 
switch (c) 
{ 


case ‘+t’: 
case '-': 
state = 6; 
break; 
default: 
if (isdigit (c)) 
State = 7; 
else 
return FALSE; 
break; 
} 
break; 
case 6: /* FSM State 6 */ 
if (isdigit (c)) 
State = 7; 
else 
return FALSE; 
break; 
case 7: /* FSM State 7 */ 
if (isdigit (c)) 
State = 7; 
else 
return FALSE; 
break; 
} 
} 
return TRUE; 
} 


/* ERROR() - Error reporting. Returns an exit status of 2 to the 
* parent process. 
*f 


void error (n, str) 
art ry 
char *str; 
{ 
fprintf(stderr,"\007\n*** ERROR - "); 
switch (n) 
{ 
case ILL ARG: 
fprintf(stderr, "Argument must be greater than zero: %s", 
str); 
break; 
case ILL CMB: 
fprintf(stderr,"Cannot use -k option with -p option"); 
break; 
case ILL KVL: 
fprintf(stderr,"Illegal value for -k option: %s",str); 
break; 
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case ILL NVL: 
fprintf(stderr, "Illegal value for -n option: %s",str); 
break; 
case ILL OPT: 
fprintf(stderr,"Illegal command line option: %s",str); 
break; 
case ILL XVL: 
fprintf(stderr,"Illegal value for -x option: %s",str); 
break; 
case INS INP: 
fprintf(stderr,"“Insufficient input data"); 
break; 
case MIS KVL: 
fprintf(stderr,"Missing value for -k option"); 
break; 
case MIS NVL: 
fprintf(stderr,"Missing value for -n option"); 
break; 
case MIS XVL: 
fprintf(stderr,"Missing value for -x option"); 
break; 
case MIS YVL: 
fprintf(stderr, “Missing ordinate value"); 
break; 
case NMT_ ORD: 
fprintf(stderr,"End ordinates do not match") ; 
break; 
default: 
break; 


























} 
fprintf(stderr," ***\n\nUsage: spline {[-aknpx] \n") ; 
exit (2); 






} 






/*** End of SPLINE.C ***/ 





End Listing 










with the video training course. 


A Programmer’s Introduction to C 
by Ray Swartz 


Topics Covered: Data Types * Operators * Expressions » 
Loops * Conditionals * Input and Output 
Character Handling * Interactive Control 
¢ Arrays * Pointers * Switch 


Reviewers’ Comments: 


“The tapes cover the major features of C and are aimed at 
professionals with a background in another computer 
language. The key to the package is that Swartz knows his 
subject and how to teach it.” Dr. Lance Leventhal 














“If you're looking for a way to learn C quickly and easily, this 
course is something you'll want to consider.” 





Doug Topham 


Price: $400 includes two video tapes (314 hours) 
and 106 page manual. 










ASK ABOUT OUR TO ORDER CALL 
FREE 15 DAY REVIEW (408) 458-0500 






Circle no. 202 on reader service card. 
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SOFTSTRIP” 


NOW OFFERS YOU SOMETHING IN 
NEVER BEFORE AVAILABLE... 
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THE SOFTSTRIP SYSTEM 


A CHOICE. 


Until now you were stuck with disks. 

No more. Install our unique STRIPPER™ software 
on your personal computer today and discover the 
many benefits of the fastest, easiest, least expensive 
way to handle information. 

STRIPPER lets you print— ON PAPER — your own 
machine readable Softstrip data strips using your dot 
matrix printer. The Softstrip System Reader reads that 
information into a computer rapidly. With STRIPPER 
and the reader, your PC and printer become part of 
the most versatile information handling system 
available. 

With this system you can do anything you wish with 
any data you have in your PC — ON PAPER. 


DATA ENTRY: Why use keystrokes when you can 
eliminate them with data strips? Whatever the 
document - invoices, packing slips, memos, letters, 
sales reports, the list is endless — simply print a data 
strip right on the same printed page. Now you have 
a document that is both human readable and machine 
readable. A typical document can be entered in only 
15 seconds using data strips. And, it ends keystroke 
errors forever. 


DATA DISTRIBUTION: Why copy disks? It's time 
consuming and expensive. Softstrip data strips will 
end all that. Simply photocopy as many data strips as 
you like and send them by mail. Data strips ignore 
folding, coffee stains, ink marks and, by the way, 


magnetic fields. And if you’re using telecommunica- 
tions, you can stop making the phone company rich. 


DATA STORAGE AND RETRIEVAL: Why have a 
file of disks and a file of paper? Eliminate one with 
Softstrip data strips. File the data strip with the docu- 
ment. Better still, print the strip right on the document. 
Then put it in a file or binder. 

Retrieval is simple. To find existing data, pull the 
document and its related data strip from the file. 
They’ve been stored together. Then use the reader 
to enter the data. No more hassle trying to match 
documents with the right disk — if you can find it. 


DATA TRANSFER: Why bother with cables, 
modems and phone lines to move files between 
computers? A Softstrip data strip generated by an 
IBM PC can be read into another PC, or compatible, 
an Apple or even a Macintosh. If you work at home 
on a Macintosh, make a data strip on your printer, 
take it into the office and read it into your IBM PC. 
Simple. And we've created the utilities to let you do 
that easily. (See Application Notes on opposite page.) 


Fascinating, isn’t it? Anything you can do with disks 
can be done with the Softstrip data strip system — 
faster, easier and at lower cost — ON PAPER. 


All you need is STRIPPER software at $19.95 and 
the Softstrip System Reader at $199.95. 





COMPUTER READABLE PRINT 


DATA HANDLING 








SEPTEMBER CASE HISTORY 


Nick Turner, editor of Dr. Dobbs Journal, has been 
making his own data strips to back up and store 
articles, listings and other important materials. 
Turner notes that the STRIPPER ™ software “creates 
compact, machine readable archives that are immune 
to dust, dirt and magnetic fields”. Strips that Turner 
prints on his printer are filed in a loose leaf binder, 
along with the appropriate article. This permits him to 
| pull the strip from the binder and read it back into his 

os f a computer quickly using the reader. The method saves 
disk files space, since once an article has been printed, maintaining it on a disk for 
revision isn’t required. 
The STRIPPER system has solved another problem for the busy editor, inter- 
machine file compatibility. Using the Softstrip® System, Turner can transfer files 
between his PC-clone and his Macintosh “with a minimum of fuss”. 


“It's about time we had a way to store files on paper in machine readable form,” 
Turner comments. 





Mr. Turner's comments are his own and do not reflect the opinion of the publication. 


APPLICATION NOTES 
On the other side of this ad we said you can move data between different programs 
— on paper. 
Using Softstrip data strips you can! 
For instance move data between AppleWorks and Excel and back. Or Lotus 1-2-3 
to and from AppleWorks. 
We've created a series of several dozen Application Notes on Softstrip data strips. 
These lead you through simple steps to make the file transfer as easy as possible. 
Here are just a few examples: 
@ AppleWriter to or from MacWrite. 
@ dBASE to or from Appleworks. 
@ WordStar to or from AppleWriter. 
@ WordStar to or from MacWrite. 
@ Framework to PageMaker. 
And more are coming. 


These strips contain ' ‘The 
IRA Calculator,” a work- 
sheet for calculating returns 
with either Lotus or Excel. 
To receive the complete 
Application Note, call 
1-800-533-7323, or write to 


Cauzin. 
ACT NOW!! Don’t delay. 
See your local SOFTSTRIP 
dealer or call us at 1-800-533-7323. Cc AUZIN 


In Connecticut: 203-573-0150. 


Users’ Groups: Call for 
special User Group deals. 


835 South Main Street 
Waterbury, CT 06706 
(203) 573-0150 


Circle no. 226 on reader service card. 


IBM is a registered trademark of International Business Machines Corporation. 

Framework is a trademark and dBASE is a registered trademark of Ashton-Tate. 

PageMaker is a registered trademark of Aldus Corporation. 

Cauzin and Softstrip are registered trademarks and STRIPPER is a trademark of Cauzin Systems Inc. 
WordStar is a registered trademark of MicroPro International Corporation. 

Lotus and 1-2-3 are registered trademarks of Lotus Development Corporation. 

MacWrite, AppleWriter and AppleWorks are trademarks and Apple is a registered trademark of Apple Computer. 
Excel is a product of Microsoft Corporation. 

Dr. Dobbs Journal of Software Tools is published by M&T Publishing, Inc. under license from People’s 
Computer Company. { 
Macintosh is a registered trademark of Mcintosh Laboratories licensed to Apple Computer Inc. 
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SORTING ALGORITHM 


Listing One (Text begins on page 32.) 


/* Listing one */ 
/*Radix sort listing*/ 





/* These includes are necessary to get the proper declarations for some of 
the Macintosh routines */ 


#include event.h 
#include quickdraw.h 





typedef struct { /*Define a structure for the sort keys*/ 
struct sortrec *ptr; /*Pointer to next key*/ 
char sortdat [KEYSIZ]; /*The key, containing KEYSIZ bytes*/ 


} sortrec; 
char *lmalloc(); 


main () 


{ sortrec *begin,*first,*start, *temp; 
int i,j3,recno; 
long tick; 
unsigned char dat; 
MaxApp1l Zone () ; /*Get maximum size application heap*/ 
begin = (sortrec *) lmalloc(0x40000); /*Allocate 256K for sortrecs*/ 
/*Check if allocation was successful and exit if not*/ 
if (!begin) { 
printf ("\nNot enough memory in heap")? 
_exit (); 
} 
first = begin; /*Point to first record*/ 
printf ("How many recs to sort\n"); 
scanf ("%d", &recno) ; 
for (i=0; i<recno; ++i) { 
first->ptr = firstt+l; /*Set pointer to next record in heap*/ 
for (j=0; j< KEYSI2; ++}) /*Fill with KEYSIZ random bytes*/ 
first->sortdat[j] = (Random () 60x7 fff) $256; 


++first; /*Point to next sort key record*/ 

} /*All records allocated and filled*/ 
first->ptr = 0; /*Terminate the linked list*/ 
tick = TickCount (); /*Get the current time*/ 


start = sort (KEYSIZ,begin); /*Sort the list*/ 
printf ("\nTickcount=%1d", TickCount ()-tick); /*Print elapsed time*/ 
} 


sortrec *sort (a,b) 


int a; /*number of bytes in the sort key*/ 
sortrec *b; /*Pointer to head of linked list to be sorted*/ 
{ /*First and last are pointers to follow two linked lists whose 


heads are start and start2. Temp follows the full-length 
original or partly sorted list*/ 
sortrec *first, *last, *start, *temp, *start2; 
static char mask[8] = { 1,2,4, 8,16, 32, 64,128};/*Individual bit masks*/ 
register i,j; 


start = b; /*point to original unsorted list*/ 
for (i = a-1; i >= 0; --i) { /*Loop for all bytes of the sort key*/ 
for (j = 0; 3 < 8; ++3) { /*Loop for all bits of each byte*/ 
first = last = start2 = 0; /*Set up working ptrs*/ 
| /*Loop for each key in the list*/ 
for (temp = start; temp; temp = temp->ptr) { 
if (temp->sortdat [i] émask[J]) 
/*Value of the bit was 1. If last list is empty, initialize it*/ 
if (last==0) start2 = temp; 
/*else add this item to the list*/ 
else last->ptr = temp; 
last = temp; 


} 
/*Value was 0. If first list empty, initialize it*/ 
else { 
if (first==0) start = temp; 
/*else add this item to the list*/ 
else first->ptr = temp; 
first = temp; 
} 
} /*End of list*/ 
/*If last list not empty, terminate it*/ 
if (last) last->ptr = 0; 
/*if first list empty, use last only*/ 
if (first == 0)start = start2; 
/*Else add last list to first list*/ 
else first->ptr = start2; 
} /*All bits this byte examined*/ 
} /*all bytes examined*/ 
return start; 


} End Listing One 
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Listing Two 


/* Listing two */ 
/*Shell sort listing*/ 


/*Includes for certain Macintosh routines*/ 

#include quickdraw.h 

#include event.h 

typedef struct { /*This structure consists only of KEYSIZ bytes*/ 
Char sortdat [KEYSIZ]; 
} sortrec; 

char *lmalloc(); 


main () 


{ int i,4,recno; 
long tick; 
sortrec *array, *base; 
unsigned char dat; 
MaxApp1 Zone (); /*Get heap space, allocate 256K for sort keys*/ 
array = base = (sortrec *) lmalloc (0x40000) ; 
printf ("How many recs to sort\n") é 
scanf ("%d", &recno); 
if (!array) { 
printf("“\nNot enough memory in heap") ; 
exit (); 
} 
/*Fill the area with random data. 
for (i=0; i<recno; ++i) { 
for (j=0;4<KEYSIZ;++4) { 
dat = (Random() &Ox7f£ff) $256; 
array->sortdat[(j] = dat; 
} 
+tarray; 
} 
tick = TickCount (); 
sort (KEYSIZ, base, comp, swap, recno) ; 
printf ("\nTickcount=%ld", TickCount () -tick); 
} 


Use array as a pointer to all records*/ 


/*Get the current time*/ 


/*Print elapsed time*/ 


sortrec *sort (size, start, comp, swap, n) 
int size,n; 
sortrec *start; 


long (*comp) (), (*swap) (); 


/*This is essentially identical to that in the Kernighan and Ritchie text. 
The call includes size (the number of records), start (a pointer to the 
first record), comp and Swap (routines for comparing and swapping byte 


strings, given pointers to them, and the number of bytes contained therein, 
and n (the number of bytes in the sort key) */ 


{ _ int gap,i,j; 
for (gap = n/2; gap > 0; gap /= 2) 
for (i=gap; i<n; i++) 
for (j=i-gap; j>=0; j-=gap) { 
Lf ((*comp) (startt+j, start+j+gap, size) <= 0) break; 
(*swap) (start+j,start+j+gap, size); 


} 
} 


comp (vall,val2,n) 
char *vall,*val2; 
int n> 


{ register i; 
for (i=0; i<n; ++i) { 
if (*(vall+ti) < *(val2+i)) return (-1); 
else if (*(vall+i) > *(val2+i)) return(l); 
} 


return 0; 


} 


swap (vall,val2,n) 
char *vall,*val2; 
int n; 


{ register i,temp; 
for (i=0; i<n; ++i) { 
temp = *vall; 
*vall++ = *val2; 
*val2++ = temp; 
} 


End Listings 
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SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for JULY 21, 1986 


IC. PROMPT DELIVERY!!! 


OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
1M 1000Kx1 100 ns 


256K 64Kx4 150 ns 
256K 256Kx1 100 ns 
256K 256Kx1 120 ns 
256K 256Kx1 150 ns 
128K 128Kx1 150 ns 
64K 64Kx1 150ns 


EPROM 

Riate 64Kx8 250 ns 
27C256 =32kKx8 250 ns 
2/7256 32Kx8 250 ns 
27128 16Kx8 250 nS 
27C64 8Kx8 200 nS 
2/764 8kx8 250 ns 

STATIC RAM 
43256L-12 32Kx8 120 ns 
6264LP-15 8kxs8 150ns 


OPEN6'% DAYS: WECAN SHIP VIAFED-EX ON SAT. 
SUNDAYS & HOLIDAYS: SHIPMENT OR DELIVERY, VIA U.S. EXPRESS MAIL 
aie cmen on MasterCard/VISA or UPS CASH COD 
INCLUDED ON | Factory New, Prime Parts .uPoo 
toe nek MICROPROCESSOR UNLIMITED, INC. 
; r iS ‘ 
m Stat ome | 240008 Poona Ave. (Q18) 267-4961 
Please call for current prices because prices are subject to change. Shipping & insurance extra. 


Cash discount prices shown. Orders received by 6 PM CST can usually be delivered to you the 
next moming, via Federal Express Standard Air @ $6.00, or Priority One @ $13.00! 


Zenith 150: $74.32 


V20/V30 8Mhz $ 1400 
80287-8 8Mhz $350.00 


Neg 
Ss) 
oF 
> 
2 
aa 
a 
a4 
a 
oS 
2 
re. 
J 
ra 
fe) 
a 
o 
c 
a 
= 
fe} 
O 
a 
x 
eS 
Oo 
= 
a 


640 Kbyte MOTHERBOARD KITS: 


8087-2 $175.00 
8087-3 $125.00 


Circle no. 105 on reader service card. 


DATA CONVERSION 


7a 
6:8 


TRANSFER DATA BETWEEN OVER 
500 DIFFERENT COMPUTER SYSTEMS 
WORD PROCESSORS TOO 
QUICK TURN-AROUND ___ 
PRICES FROM $9 PER DISK 
CALL OR WRITE FOR YOUR 


FREE CATALOG 


PORT-A-SOFT 
555 S. STATE ST., SUITE #12 
P.O. BOX 1685, OREM, UT 84057 
801) 226-6704 


Circle no. 229 on reader service card. 


MEGABYTE S100 BOARD 


Available as an upgrade to 
your present 256K LS-100 
Solid State Disk Simulator (sold 
by Digital Research Computers 
of Texas) for only $275. 

Also available new, fully 
assembled & tested for 495°. 

Runs as if you plugged 3 
more boards into your system. 
Up to 8 megabytes, warm boot 
with CP/M 2.2. North Star DOS 


patches for either board. 

We also repair and stock most 
circuit boards for Dynabyte, North 
Star, and Ithaca systems. 


SIYRE Studies 


42 Pondview Drive 
Southington, CT 06489 


(203) 621-6839 


Shipping free with all pre-paid orders. Call for details. 

































Circle no. 166 on reader service card. 
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HIGH SPEED THRILLS 


Listing One (Text begins on page 46.) 


These listing are available for downloading from co-author Mike 
Elkins Fido BBS at (619) 722-8724 which operates at 300 and 1200 
baud, 8-bits, no partity, 1 stop-bit. 





man— LISTING ] -—an ann na a re 


/* 
Erathosthenes Sieve Prime Number Program in C 
*/ 
#define TRUE 1 
#define FALSE 0 
#define SIZE 8190 
#define SIZEP1 8191 
char flags[SIZEP1]; 
main ()} 


int i, prime, j, count, loops; 


loops = 1; 
while (loops <= 10) /* Changed to 100 for second benchmark zs 
{ 
count = 0; 
1 = 03 
while(i <= SIZE) 
{ 
flags[{i] = TRUE; 
i++; 
} 
i = 0; 
while (i <= SIZE) 


{ 
if (flags[i]) 
{ 


prime =i+i+ 3; 
4 = i+ prime; 
while (j <= SIZE) 

{ 

flags(j] = FALSE; 

4 = 3 + prime; 


count ++; 
} 
i++; 
} 
loopst++; 


} 
printf ("td primes, td loops\n", count, loops) ; 


return; 
} s s 
End Listing One 

aeeeatine LISTING 2 svat titaactnice ischial sane it nan ee TL 
/* 

* "“DHRYSTONE" Benchmark Program 

* 

* Compile: cl dry.c (Microsoft 3.0) 

® Defines: Defines are provided for old C compiler's 

* which don't have enums, and can't assign structures. 

* The time (2) function is library dependant; One is 

x provided for CI-C86. Your compiler may be different. 
- This ig not required for Microsoft 3.0 which supports 
* all of the standard calls and will compile asis. 

* 

* MACHINE OPERATING COMPILER DHRYSTONES 

* TYPE SYSTEM /SEC 

Whe ee ca cicada, + Fo eceienietnaeivemmane’ 1," anmantetnenetionterese estos | RPE ee. 

* IBM PC PCDOS 3.1 Microsoft C 3.0 333 

x IBM PC/AT PCDOS 3.1 Microsoft C 3.0 1041 

* $ IBM PC/AT PCDOS 3.0 CI-C86 2.1 684 

” $ ATT 3B2/300 UNIX 5.2 ce 806 

™ $ IBM PC/AT VENIX/86 2.1 ed 1000 

: $ Sun2/120 Sun 4.2BSD cc 1219 

*t 

* The entries with $ supplied by Rick Richardson, who origanally converted 
* the program from ADA. 

* The rest are provided by Mike's "C" Board 619-722-8724 . 

eR KKH RAR RRA EA IIIB IIA IIA IS IIIA IIA AIIIISA IA IIIS BEI IIIA IIIA ER 


The following program contains statements of a high-level programming 
language (C) ina distribution considered representative: 


assignments 53% 
control statements 32% 
procedure, function calls 15% 


100 statements are dynamically executed. The program is balanced with 
respect to the three aspects: 

- statement type 

- operand type (for simple data types) 

- operand access 


+ + + FF FF + HF HF F HF F 
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Byte Magazine called it. 








. operand global, local, parameter, or constant. 
* 
* The combination of these three aspects is balanced only approximately. "Cl A RC j A’ S 
* . 
* The program does not compute anything meaningfull, but it is 
* syntactically and semantically correct. SUPER 
* 
: SYSTEM’ 
/* Compiler dependent options */ |: 
#undef NOENUM /* Define if compiler has no enum's */ lm 
#undef NOSTRUCTASSIGN /* Define if compiler can't assign structures */ “fia 
#undef NOTIME /* Define if no time() function in library */ 
#ifdef NOSTRUCTASSIGN 
#define structassign(d, s) memcpy (&(d), &(s), sizeof (d)) 
#else 
#define structassign(d, s) qd=s 
#endif 
#ifdef NOENUM 
#define Identl 1 
#define Ident2 2 
#define Ident3 3 
#define Ident4 4 
#define Ident5 5 
typedef int Enumeration; 
#else 
typedef enum {Identl, Ident2, Ident3, Ident4, Ident5} Enumeration; 
fendit The S$BI80 
typedef int OneToThirty; 
typedef int OneToFifty; Computer/ Controller 
typedef char Capitalletter; 
typedef char String30 [31]; Featured on the cover of Byte, Sept. 1985, 
; or-ank Array1Dim[51}; the SB180 lets CP/M users upgrade to a 
typedef int Array2Dim[51] [51]; fast, 4’ x 7%” single board system. 
struct Record 
{ 
struct Record *PtrComp; ° 6MHz 64180 CPU 
Enumeration Discr; (280 instruction superset), 256K RAM, 
Enumeration EnumComp; 8K Monitor ROM with device test, disk 
OneToFifty IntComp; format, read/write. 
String30 StringComp; @ Mini/Micro Floppy Controller 
17 (1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 34277 5%" 
typedef struct Record RecordType; and 8” drives). 
typedef RecordType * RecordPtr; © Measures 4’ x 7%" with mounting holes 
typedef int boolean; @ One Centronics Printer Port 
@ Two RS232C Serial Ports 
#define NULL 0 (75-19,200 baud with console port 
#define TRUE 1 auto-baud rate select). 
#define FALSE 0 © Power Supply Requirements 
+5V +/-5% @500 mA 
peri om +12V +/- 20% @40mA 
oe ® ZCPR3 (CP/M 2.2/3 compatible) 
en © Multiple disk formats supported 
Suen drdgemtcts Tew Funcl (); @ Menu-based system customization 
extern boolean Func2 (); a a a gree 
$B180-1 
main () SB180 computer board w/256K 
{ bytes RAM and ROM monitor 
Pe OR Re = Sa he ee et ee $369.00 
$B180-1-20 
/* same as above w/ZCPR3, ZRDOS 
* Package 1 and BIOS source............. $499.00 
i 
int IntGlob; -Quantity discounts available- 
boolean BoolGlob; 
char Char1Glob; 
char Char2Glob; new 
Array1Dim ArraylGlob; . - 
Array2Dim Array2Glob; COMM 180 = 
RecordPtr PtrGlob; optional peripheral board adds 
RecordPtr PtrGlobNext ; 1200 bps modem and SCS/ 
hard disk interface. 
Proco0 () 
{ SSS SSSTySGSaGAssnsnssse= 
OneToFifty IntLocl; TO 
REG OneTOFi fty Int Loc? CALL TOLL EREE TELEX 
REG char CharLoc: 1-800-635-3355 643331 
REG char CharIndex; 
REG Enumeration EnumLoc; For technical assistance or 
String30 StringlLoc; to request a data sheet, call: 
String30 String2Loc; 1-203-871-6170 
#define LOOPS 50000 
long time (); 





es Micromint, Inc. 
25 Terrace Drive 
Vernon, CT 06066 


(continued on next page) 
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HIGH SPEED THRILLS 
THE JOURNAL OF ere 
; ; O R T H Listing TWO (Listing continued, text begins on page 46.) 


APPLICATION AND § | 723 nulltime; 


register unsigned int i; 
starttime = time (0); 

RESEARCH for (i ee 0; 12 LOOPS; ++i); 

nulltime = time(0) - starttime; 





Volume 4 Subscriptions 


PtrGlobNext = (RecordPtr) malloc (sizeof (RecordType) } 7 
PtrGlob = (RecordPtr) malloc (sizeof (RecordType) ) ; 
: : PtrGlob->PtrComp = PtrGlobNext; 
Corporate/Institutional 100. PtrGlob->Discr = Ident]; 
WI PtrGlob->EnumComp = Ident3; 
Individual 40. PtrGlob->IntComp = 40; 
Outside NA. add airmail 20. strepy (PtrGlob->StringComp, DHRYSTONE PROGRAM, SOME STRING"); 


[RR KKEKEKREKEKEEKEE 


-—- Start Timer -- 


KEKKKKKKEEKKEKEKKEEE / 


Send checks or money order to: 





starttime = time (0); 
JFAR for (i = 0; 1 < LOOPS; ++) 
P.O. Box 27686 { 
Rochester, NY 14627 Proc (); 
Proc4 (); 
IntLocl = 2; 
IntLoc2 = 3; 





strcepy (String2loc, "“DHRYSTONE PROGRAM, 2'ND STRING"); 
EnumLoc = Ident2; 


Incredible BoolGlob = ! Func2(Stringlloc, String2Ioc); 


while (IntLocl < Intloc2) 


™ 
SwyftWare! IntLoc3 = 5 * IntLocl - IntLoc2; 


Proc? (Intlocl, IntLoc2, &IntLoc3) ; 


Beh pk a Ne Late a le eaters 

It is not possible in an ad to really explain this ++IntLocl; 

Apple II (e or c) product which outperforms } 7 
all other software in speed and simplicity. It ot peas Array2Glob, Intlocl, Intloc3); 
SE i anictinsaitaee S for (CharIndex = 'A': CharIndex <= Char2Glob; ++CharIndex) 

’ . if (EnumLoc = Funcl(CharIndex, ' C*}} 
other tasks. Reviewers call it “foolproof and Proc6 (Ident1, ¢EnumLoc) : 
frustration free” and “blindingly fast.” IntLoc3 = IntLoc2 * IntLocl; 


It appeals to beginners and IntLoc2 = IntLoc3 / IntLocl; 
experts. Jef Raskin, IntLoc2 = 7 * (IntLoc3 - Intloc2) - IntLocl; 
who invented the Macintosh and who later Proc2(&IntLocl); 
created SwyftWare, has written up the 


hows and whys of this product. Please 


write for a COpy. No charge. Or [RRKKRKEKHERKR EK EK 
order SwyftWare and see for -- Stop Timer -- 
yourself. At $89.95 and KKEKKKKKKKEKEK EERE / 
with a 30-day refund benchtime = time(0) - starttime - nulltime; se a ha 
‘ , : printf ("Dhrystone time for %$ld passes = %ld\n", (long) LOOPS, ncht ime) ; 
cS eres I TIS Se ee printf ("This machine benchmarks at %ld dhrystones/second\n", 
US 800/982-5600 CA 800/562-7400 ((long) LOOPS) / benchtime) ; 
FREES RE EN 
Information Appliance 





REG RecordPtr PtrPariIn; 


{ 
#define NextRecord (* (PtrParIn->PtrCcomp) ) 









structassign (NextRecord, *PtrGlob); 
PtrParIn->IntComp = 5; 
NextRecord.IntComp = PtrPariIn->IntComp; 
NextRecord.PtrComp = PtrParIn->Ptrcomp; 
Proc3 (NextRecord.PtrComp) ; 

if (NextRecord.Discr == Ident1) 

{ 


Dr. Dobb's Journal 


Subscription 
Problems? 


No Problem! 


Ss 


Give us a call and we'll 


NextRecord.IntComp = 6; 
Proc6é (PtrParIn->EnumComp, &NextRecord. EnumComp) ; 
NextRecord.PtrComp = PtrGlob->PtrComp; 
Proc7 (NextRecord.IntComp, 10, &Next Record. IntComp) ; 
} 
else 
structassign (*PtrParin, Next Record) ; 


#undef NextRecord 
} 


Proc2 (IntParI0O) 


straighten it out. Today. pee *IntParl0; 
: y ; REG OneToFifty Int Loc; 
Outside California 







REG Enumeration EnumLoc; 


CALL TOLL FREE: 800-321-3333 


Inside California 
CALL: 649-485-6535 or 6536 


IntLoc = *IntParIO + 10; 

for (77) 

{ 
if (ChariGlob == ‘'A‘) 
{ 
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—-IntLoc; 
*IntParIO = IntLoc - IntGlob; 
EnumLoc = Identl1; 
} 
if (Enumloc == Ident1) 
break; 


} 


Proc3 (PtrParOut) 
RecordPtr *PtrParout; 
{ 
if (PtrGlob != NULL) 
*PtrParOut = PtrGlob->PtrComp; 
else 
IntGlob = 100; 
Proc7 (10, IntGlob, &PtrGlob->IntComp) ; 
} 


Proc4 ()} 

{ 
REG boolean BoolLoc; 
BoolLoc = CharlGlob = 'A'; 
Boolloc |= BoolGlob; 
Char2Glob = 'B'; 

} 


ProcS () 
{ 


CharlGlob = 'A'; 
BoolGlob = FALSE; 
} 


extern boolean Func3(); 


Procé(EnumParIn, EnumParoOut ) 
REG Enumeration EnumParIn; 
REG Enumeration *EnumParOut; 
{ 
*EnumParOut = EnumParin; 
Es. 2 Func3 (EnumParIn) ) 
*EnumParOut = Ident4; 
switch (EnumParIn) 
{ 


case Identl1: 
case Ident2: 


*EnumParOut = Ident1; break; 
if (IntGlob > 100) *EnumParout 
else *EnumParOut = Ident 4; 


break; 
case Ident3: *EnumParOut = Ident2; break; 
case Ident4: break; 


case Ident5: *EnumParOut = Ident3; 
} 


} 
Proc7 (IntParI1, IntParI2, IntParOut) 


OneToFifty IntParI1; 
OneToFifty IntParI2; 
*IntParout; 


OneToFifty 
{ 

REG OneToFifty IntLoc; 

IntLoc = IntParT1 + a3 

*IntParOut = IntParlI2 + IntLoc; 
} 


Proc8 (ArraylPar, Array2Par, IntParI1, IntParI2) 


Array1Dim ArraylPar; 

Array2Dim Array2Par; 

OneToFifty IntParI1; 
IntParI2; 


OneToFifty 
{ 


REG OneToFifty IntLoc; 
REG OneToFifty IntIndex; 


IntLoc = IntParI1 + 5; 
ArraylPar[IntLoc] = IntParI2; 
ArraylPar[IntLoc+1] = ArraylPar[IntLoc]; 
ArraylPar[IntLoct+30] = IntLoc; 


for (IntIndex = IntLoc; IntIndex <= (IntLoc+1) ; 


Array2Par [IntLoc] [Int Index] = IntlLoc; 
++Array2Par [IntLoc] [IntLoc-1]; 


= Ident1; 


++IntIndex) 


Array2Par [IntLoc+20] [IntLoc] = ArraylPar[IntLoc]; 


IntGlob = 5; 
} 


Enumeration Funcl (CharParl, CharPar2) 


CapitalLetter  CharParl; 

CapitalLetter CharPar2; 

{ 
REG CapitalLetter Charlocl; 
REG CapitalLetter CharlLoc2; 
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Perfect Windows, 
Powerful Data Entry, 
FULLY Integrated, 
For Effortless 
Data Entry Windows! 


* Complete input formatting 
¢ Unlimited Validation 
¢ Full attribute control 
- Field sensitive application help system 
* Multiple virtual windows 
¢ Fully automatic, collision proof overlay 
and restore 
° Print to & scroll background windows 
¢ Animated window "zoom" 
* Move, grow, shrink, hide, or show 
any window 
¢ "Loop function" allows processing 
while awaiting input 
and much much more! 
Designed to increase your productivity 
and help you produce superior applica- 
tions in dramatically less time! Includes 
100% source, tutorial, reference manual, 
examples, and sample programs. 


Specify Microsoft, 
$149 


Lattice, Computer 
or Mark Williams. Ask about Unix. 


Innovations, Aztec, 

NOW... VCScreen ! 
Our new interactive screen "painter" 
actually lets you draw your data entry 
windows! Define fields, text, boxes & 
borders. Move them around. Change 
attributes. Then the touch of a button 
generates C source code calls to the 
Vitamin C routines! Now, your screen 
designs will be faster and more pleasing 
when they are created with VCScreen! 


Requires Vitamin C lib- $ 9 9 ° 9 5 


rary above. For IBM & compatibles. 





For Orders Or Information, 


(214)245-6090 


Creative Programming Consultants 
Box 112097 Carrollton, TX 75011-2097 
Include $3 ground, $6 air, $15 overnight 
Shipping, $25 if outside USA. Texans add 
6% tax. All funds must bein U.S. dollars 
drawn on a U.S. bank. 
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HIGH SPEED THRILLS 


Listi ng TWO (Listing continued, text begins on page 46.) 






Charlocl = CharParl; 

Charloc2 = CharLocl; 

if (CharLoc2 != CharPar2) 
return (Identl); 








else 
return (Ident2); 


} 







boolean Func2(StrParI1, StrParI2) 











String30 StrParI1; 

String30 StrParI2; 

{ 
REG OneToThirty Int Loc; 
REG CapitalLetter CharLoc; 










IntLoc = 1; 
while (IntLoc <= 1) 

if (Funcl (StrParI1[Intloc], StrParI2[IntLoct1]) == Ident1) 
{ 






CharLoc = ‘A‘'; 
++Int Loc; 







} 

if (Charloc >= 'W' && CharLoc <= '2') 
IntLoc = 7; 

if (CharLoc = 'X') 
return (TRUE) ; 

else 













if (stroemp(StrParIl, StrParI2) > 0) 
{ 
IntLoc += 7; 
return (TRUE); 
} 


else 
return (FALSE) ; 


C CODE FOR THE PC 


source code, of course 








———Sae 
QC88s C Compiler . 
eee MO ies ON as, oe 
Cidder’s Prolog it. C ose sw SO 
Pees oe Pye ee 
WACO 2 PREY © «(4 eee e 8 

Small-C compiler for 8088 .. .- - $20 





File Systern Utili ty: y. 4 


_ All products are. written. entirely. in. K&R c Source 
code included, No roe ee & Portable. 


mz 75: at o 


»..High speed: random and sequential: access: 
® Multiple keys per data file with up to 16 million records per file. 


® Duplicate keys, variable length. data feces. |_| 
Rea 2. oo ee 


® Greatly speeds application abel frene 

_ ® Combines ease of use of database m 
ming language. | 

e Supports multi key files and dynamic index definition, | 

> Very = to use: : Pence 


| | Make ous 
e Patterned after the UNIX utility : 
ouult./Morks-for programs-weritten-in every. language. ss 
e Full macros, File name expansion and built in rules. 


_Full. Documentation. and Exar 

































tiny-c interpreter & shell... . - $20 
Xlisp 1.5a & tiny-Prolog .... . $20 
Peas clade wae ae 



















The Austin Code Works 
11100 Leafwood Lane 

Austin, Texas 78750-8409 

(512) 258-0785 





ALL THREE PRODUCTS FOR — 







1343 Stanbury Drive 
Oakville, Ontario, Canada 
Wt ee ee 

(416) 825-0903 


‘For more information call or write: 


Free shipping on prepaid orders No credit cards 
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} 
} 


boolean Func3(EnumParIn) 
REG Enumeration EnumParIn; 
{ 
REG Enumeration Enumloc; 


EnumLoc = EnumParIn; 
{f (EnumLoc == Ident3) return (TRUE); 
return (FALSE); 

} 


#ifdef NOSTRUCTASSIGN 
memcpy (d, s, 1) 
register char ‘*d; 
register char *3; 


fifdef NOTIME 
long time (p) 
long 57 


long te 
regs.ax = 0x2c00; 
Sysint21(éregs, &regs); 


if (p) *p =t; 
return t; 


Professional Test/Format 
Program For 
Hard Drives in PC/XT/AT 


i Setup interleave, step rate, etc. 

Fi Surface analysis to flag bad tracks 
i Load/save setup and bad track files 
Fl Now supports AUTOCONFIG! 

Fi Menu driven, with help windows 

i Free PARK program included! 

El Order HDTEST today for only $99! 


_ Proto PC inc. 
Pao eal 8 


2424 Territorial Road, St. Paul, MN 55114 
Telex 910-380-7623 
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C a e ae oe device . : naress ae = : ” 

--) *d++ = *st+; driver adds graphics comman ntelligent alpha termina 
ee? capabilities to any program commands of.a DEC VT-100 
fendif language 

¢ Provides user with the graphics 
/* ¢ Allows full screen PC-DOS commands of the Tektronix 
* Library function for compilers with no time(2) function in the command editing by unsticking 4010/4014 and 4027 graphics 
a library. -the cursor terminals 


{ /* CI-C86 time function - don't use around midnight */ 


struct regval {unsigned int ax, bx, cx,dx,si,di,ds,es; } regs; 


tC = ((regs.cx>>8)*60L + (regs.cx & Oxff))*60L + (regs.dx>>8) ; 


End Listings 
















MicroPlot, innovator of creative PC software programs is excited to 


PC-DOS 
eee 
announce PlotDev, the alternative to virtual device drivers and 


graphics tool kits for PC-DOS graphics programs. 














¢ Supports most popular oe e And much more ... 
boards and provides a built-in 
graphics screen dump for 


printers 







Site license and 
educational 







discounts available. 





¢ Non-interfering with memory 
resident or soplication programs 





Fora detailed PlotDev. brochure or for ordering information-call-toll 
free 1-800-338-0333, in Ohio call 1-800-242-0333. Use touch-tone 
to enter1.D. code 766-8501, or wait for operator assistance. Visa 

or MasterCard welcome. 








MicroPlot 








659-H Park Meadow Road Westerville, Ohio 43081 (614) 882-4786 
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Translator Writing System 


THE PRODUCTIVITY TOOL 
FOR SOFTWARE DEVELOPERS 


QPARSER assists you in writing: 


* Compilers * Translators * Interpreters * 
* Prototypes * Simulators * Syntax Checkers * 
* Data Converters * Assemblers * 









QPARSER is a unique LALR(1) parser generator: 


Generates complete source code for your application 
in C, Pascal, or another language of your choice; 

Extensive examples include a Pascal subset compiler, 
assembler, and simulator; 

The widely used college text, Compiler Construction: 
Theory & Practice, from SRA Associates, was 
written by the author of QPARSER 

Lauded by both industrial and university users 

Available for: IBM PC,XT,AT; DEC VAX; HP 9816; MACINTOSH 

(PC System $400; Demo $10; Educational/Site Licenses available) 














“LEADERS IN SOFTWARE TOOLS" 






= Yi TEMS, ING. 


1164 Hyde Ave., San Jose CA 95129 
Toll-free Orders: (800) 538-9787; In CA: (408) 727-6671 
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THE PROGRAMMERS SHOP 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 





RECENT DISCOVERY 


BreakOut - Manipulate and capture 
asynch data communications on COM 1 
or COM? ports or IBM PC. Keystoke 
macros, windows, ASCII. Determine 
protocol, test, and control RS232 
asynch devices. RC 3 bea 


Al-Expert System Dev t 


Arity System - incorporate with C 
programs, rule & inheritance PC $ 295 
Experteach - Powerful, no limit on 


memory size. Samples PC, $399 
EXSYS - Improved. Debug, file & 
external program access. MS $ 339 


Insight 2+ - dB2, language. MS $ 879 
Others: APES ($359), Advisor ($949), 
ES Construction ($100), ESP ($845), 
Expert Choice ($449) 





BYSO - Common, MacLISP compatible. 


250+ functions, fast PC $ 150 
GC LISP Interpreter - “Common”, 

rich. Interactive tutorial Call 
Microsoft MuLisp 85 $ 199 
PC Scheme LISP - by TI PC:$::95 


TLC LISP - classes, compiler. MS $ 225 
TransLISP - iearn fast MS $ 75 
WALTZ LISP - “FRANZ LISP” - like, 
big nums, debug, CPM-80 MS $ 149 
Others: IQ LISP ($155), UNX LISP ($59), 
IQC LISP ($269) 


Al-Prolog : 


ARITY Standard - full, 4 Meg 

Interpreter - debug, C, ASM PC $ 350 
COMPILER/Interpreter-EXE PC $ 795 
With Exp Sys, Screen - KIT PC $1250 
MacProlog by Programming Logic 

Systems MAC $ 295 
MicroProlog - enhanced MS $ 229 
Prof. MicroProlog-full memory MS $ 359 
Prolog-86 - Learn Fast, Standard, 

tutorials, samples MS $ 95 
Prolog-86 Plus - Develop MS $ 250 
TURBO PROLOG by Borland PC $ 79 
Others: Prolog-I ($365), Prolog-2 ($1795) 


METHODS - SMALLTALK has 


objects, windows POS | 69 
with graphics PC $89 
Methods by Digitalk PC $ 209 


Q’NIAL - Combines APL with LISP. 


Source or a= PC $ 359 


Quick Basic v2.0 - New user interface. 
Editor, source level error detection, 
built-in debugger, in-memory 
compilation, build and link user 
libraries. BASICA, GW-BASIC 
compatible. BLOAD, BSAVE 


PC 7 
APT: Active Prolog Tutor - se 
Guides you in building applications 
interactively. Arity, Borland, 


Prolog-86 compatible POS: 65 





















700+ Programmer’s Products 


The Programmer's Shop carries every programmer's soft- 
ware product for MSDOS, PCDOS, CPM, Macintosh, 
Atari, and Amiga systems. We help you choose the best tools 
for you. Most popular products are in stock, available for 
quick delivery. We will gladly special order a product for 
you at no charge — just allow a few extra days for delivery. 

Need Cross Compilers, Translators, or the right Fortran 
compiler? Ask us. 


Our Services: 
* Programmer’s Referral List * Dealers Inquire 
* Compare Products + Newsletter 
* Help find a Publisher * Rush Order 
+ Evaluation Literature FREE * Over 700 products 





* BBS-7PMto7 AM 617-826-4086 * National Accounts Center 


Basic 


ACTIVE TRACE Debugger - 

BASICA, MBASIC, wellliked MS $ 79 
APC MegaBASIC - powerful PC $ 339 
Basic Development System - for 

BASICA; Adds Renum, more. PC $ 105 
Basic Windows by Syscom PC: $ °° 95 
BetterBASIC - all RAM, modules 





Structure. Full BASICA PCS. 169 
8087 Math Support PC 3:89 
Run-time Module PC 3235 


Better Tools - for Better Basic PC $ 95 
CADSAM FILE SYSTEM - full 

ISAM in MBASIC source. MS $ 75 
GoodBas - maintain code PC $ 95 
LPI Basic - MS compatible UNIX $1100 
Prof. Basic - Interactive, debug PC $ 79 


8087 Math Support PSS. Ae 
TRUE Basic - ANSI Pe 3.119 
Run-time Module PC $ 459 





LPI Cobol - ANSI °74 UNIX $1200 
Macintosh COBOL - full MAC $ 459 
MBP - Lev. II, native MS §$ 885 


MicroFocus Professional - full PC = Call 
Microsoft Cobol Tools - xref, debugger 

w/source support. Xenix $359 PC $ 239 
Microsoft Version II - upgraded. 

Full Lev. II, native, screens. MS $ 479 
Realia - very fast MS $ 839 
Ryan McFarland COBOL MS $ 699 

COBOL-8X MS $1049 


Editors for Programming 


BRIEF Programmer’s Editor - undo, 

windows, reconfigure PC Call 
C Screen Editor - w/source 80/86 $ 75 
EMACS by UniPress - powerful, 

multifile, windows Source:$949 $299 
Epsilon - like EMACS, full 

C-like language for macros. PC $169 
Kedit - like XEDIT PC $109 
Lattice Screen Editor - multiwindow, 

multitasking Amiga $100 MS $109 
PMATE - power, multitask 80/86 $149 
XTC - multitasking PC $ 85 


AtariST & Amiga 


We carry full lines of Manx, 
Lattice, & Metacomco. 
Amiga - LINT by Gimpel Amiga $ 79 


Cambridge LISP Amiga $ 200 
Lattice C ST, Amiga $ 139 
Lattice Text Utilities Amiga $ 75 
Megamax - tight, full ST $ 200 





We support MSDOS (not just compatibles), PCDOS, Xenix-86, CPM-80, Macintosh, Atari ST, and Amiga. 
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RECENT DISCOVERY 


TurboH ALO Graphics for Turbo 
PASCAL - respected, mature, full. 
150 HALO routines, up to 16 colors, 
medium or high resolution, multiple 
fonts. IBM CGA and EGA, Hercules, 
AT&T DEB, more. PC $ 99 


C Language-Compilers 


AZTEC C86 - Commercial PC $499 
AZTEC C65 - Personal Apple II $199 
C86 by CI - 8087, reliable MS $299 


Lattice C - from Lifeboat MS $289 
Lattice C - from Lattice MS $339 
Mark Williams - w/debugger MS $399 
Microsoft C 3.0 MS $259 


Q/C 88 by Code Works - Compiler 

source, decent code, native MS $125 
Wizard C - Lattice C compatible, 

full sys. III, lint, fast. MS $389 


C Language-Iinterpreters 


C-terp by Gimpel - full K & R MS $249 
INSTANT C - Source debug, 
Edit to Run-3 seconds 
Interactive C by IMPACC Assoc. 
Interpreter, editor, source, debug. PC $225 
Introducing C - self paced tutorial PC $109 
Run/C Professional - Run/C plus 
create add-in libraries, more MS $189 


MS $389 





Run/C Lite - improved MS $109 
C Libraries-General 
Blackstar C Function Library PC $ 79 


Blaise C Tools 1 ($109), C Tools 2 $ 89 
C Essentials - 200 functions PC $ 85 
C Food by Lattice-ask for source MS $109 
C Utilities by Essential - Comprehensive 
screen graphics, strings, source. PC $139 
C Worthy Library - Complete, machine 
independent MS $295 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 
Greenleaf Functions - portable, ASM $139 
PforCe by Phoenix - objects PC $299 


C Libraries-Communications 


Asynch by Blaise PC $149 
Greenleaf - full, fast PC: $139 
Software Horizons - pack 3 PC $119 


C Libraries-Files 


FILES: C Index by Trio - full B + 
Tree, vary length field, multi compiler 
/File is object only MS $ 89 


/Plus is full source MS $349 
C to dBase - with source MS $139 
CBTREE - sequential, source, no 

royalties MS $ 99 


CTree by Faircom - noroyalties MS $339 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 
Object only - MS C, LAT, C86 $159 


Source - Single user MS $429 
Source - Multiuser MS $849 
dBASE Tools for C PCS 79 
dbc Isam by Lattice MS $199 








PLLA VUNA WNIT 





provides complete information, advice, guarantees and every product for Microcomputer Programming. 
pe Se ee Se, Ee ee ee: 










Greenleaf Functions - 200+ functions in 
C for printer, formatting. With source. Covers 
all bases including screen, graphics, & DOS 
interface. Good doc. Specify compiler. 
Greenleaf Comm Library - Full ASYNCH 
support with source. Xmodem, CRC, polling. 
Specify compiler. 




















GREENLEAF BARGAINS 
ORDER TODAY 








LIST Before After 











Order before 9/31/86 and 9/30 9/30 
mention this ad for the special prices Greenleaf Functions 35 5 FIG" 138 





to the right: 









Greenleaf Communications 185 119 139 


Fortran & Supporting 


C Support-Systems 


Basic-C Library by C Source PC $139 ACS Time Series MS $449 
C Sharp - well supported. Source, Forlib + by Alpha - graphics and 
realtime, tasks, state system MS $600 file routines, comm. MS $ 59 
C ToolSet - DIFF, xref, source MS $ 95 MACFortran by Microsoft MAC $229 
The HAMMER by OES Systems PC $179 MS Fortran link to C MS $219 
Lattice Text Utilities MS $105 No Limit - Fortran Scientific PC $119 
PC LINT - Checker. Amiga$89 MS $119 PolyFortran - xref, pp, screen MS $149 
SECURITY LIB - add encrypt to MSC, Prospero - ’66, reentrant MS $349 
C86 programs. Source $250 PC $125 RM/Fortran - enhanced “IBM 
Professional Fortran” MS $395 


C-Screens, Windows. Graphics 


C Power Windows by Entelekon PC $119 


Scientific Subroutines - Matrix MS $149 
Statistician by Alpha MS $269 


dBASE Graphics for C PC $ 79 Strings and Things - register, shell PC $ 59 
Curses by Lattice PC $109 Multilanguage Support 
ESSENTIAL GRAPHICS - fast, . 
fonts, no royalties PC $219 BITRIEVE ISAM MS $199 
GraphiC - new color version PC $319 BTRIEVE/N-multiuser MS $469 
Topview Toolbasket by Lattice PC $209 | CODESIFTER - Profiler. MS $109 


HALO Graphics - 115 + devices. 

Animation, engineering, business. 

Any MS language, Lattice,C86 PC $229 
PANEL - Create screen with editor, 

generates code. Full data validation, 

no royalties. Xenix $539, MS $239 
Pfinish Performance Analyzer PC $249 
PLINK 86-program-independent MS $249 


View Manager for C by Blaise PC $219 
Vitamin C - screen I/O PC $139 
Windows for C - fast PC $159 
Windows for Data - validation PC $239 


Debuggers 
Advanced Trace-86 by Morgan 


Modify ASM code on fly. PC $149 pr INK-86 PLUS - incremental MS $369 
CODESMITH - visual, modify PolyLibrarian by Polytron MS $ 85 
and rewrite Assembler PC $109 PVCS Version Control MS $329 
C SPRITE - data structures PC $139 Rtrieve - Btrieve front end MS $ 79 
DSD87 - windowing, 8087 MS $ 95 Screen Sculptor - slick, thorough, 
Periscope I - own 16K PC $269 fast, BASIC, PASCAL. PC $ 99 
Periscope IT - symbolic, “Reset Xtrieve - organize database MS $169 
Box,” 2 Screen PC $129 ZAP Communications - VT 100, 
Pfix-86 Plus Symbolic Debugger TEK 4010 emulation, file xfer. PC $ 95 
by Phoenix - windows PC $249 ZView - screen generator MS $219 


Software Source by Atron - 
Lattice, MS C, Pascal, Windows 
single step, 2 screen, log file. MS $115 
w/Breakswitch $199 


Pascal and Supporting 


Alice - learn Pascal. Turbo 
compatible, interpreter PC $ 85 
MetaWINDOW - graphics toolkit PC $119 
Microsoft PASCAL - faster MS $109 
MICROTEC PASCAL - 5 memory models, 
“Iterators”, 65 bit 8087 strings MS $665 


Smalltalk-80 - “Official” Xerox licensed 
version. Compatible with Smalltalk-80 v2 
running on other systems. Compiler, 


cc Pascal Tools - strings, screen PC $109 

complete graphics interface, debugger, Pascal Tools 2 - by Blaise MS $ 85 
windows, text and graphics editor, source. Pfas’- Portable iam MS $185 
ie inode, RAM actess. aes Prospero Pascal - full ISO + MS $349 
USCD Pascal - native code MS $ 69 








800-421-8006 


THE PROGRAMMER’S SHOP™ 
128-D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 7/86 





HOURS 
8:30 AM - 8:00 PM EST. 









Call for a catalog, literature, advice and service you can trust 


“You've got everything I’ve heard of, and 
much I haven't! . . . Normally, I expect 
my money to be “fan letter” enough, but 
you people are SUPER!” 


Ieee eas : 


Lattice RPG II Compiler - Run RPG II 
programs developed for the System III 
or system 32/34/36 with little or no 
change in source code. Screen gen, ISAM, 


& direct files. No royalties. PC $639 
Other Languages 

APL*PLUS/PC PC $ 469 
Artek ADA Compiler - DOD standard 
minus multitasking PC $ 895 
CLIPPER-dBASE Compiler MS $ 449 
ED/ASM - 86 by Oliver PC $ 85 
MacASM - fast MAC $ 99 
MasterForth - Forth ’°83. MACorPC $ 125 
Microsoft MASM - faster MS $ 109 


Modula 2 by VolitionSystems MS $ 250 
Modula-2/86 Compiler by Logitech 

w/ 8087 ($105), 512K ($149). PC $ 65 
Pasm - by Phoenix MS $ 219 
RPG II by Lattice PC $ 639 
SNOBOL4 + - great forstrings MS $ 85 
Turbo Edit/ASM - by Speedware PC $ 85 


Xenix-86 & Supporting 





Basic - by Microsoft $ 279 
Cobol - by Microsoft $ 795 
Fortran - by Microsoft $ 399 


Xenix Complete Development System, $1149 
Other Products 


BSW Make - like UNIX make MS $_ 85 
Dan Bricklin’s Demo Program PC $ 65 
dBrief - Customize BRIEF for dBASE 
development. with BRIEF $275. PC $ 95 
H Test/H Format - XT Fix PC $ 89 
Interactive Easyflow-HavenTree PC $ 139 
Link & Locate - MSDOS tools to work with 
Intel and Tektronix projects. MS $ 329 


LMK - like UNIX make PC $ 149 
Microsoft Windows PC $75 
Microsoft Windows Software 

Development Kit PC $ 399 


Opt Tech Sort - sort, merge MS $ 
PMaker - by Phoenix PC $ 
Polymake by Polytron ‘MSS 
PolyWindows Dev. Kit PC: 3 
PS MAKE MS $ 
SECRET DISK by Lattice PC $ 99 
SET:SCIL - manage revisions PC $ 
Shrink/Shrinkem - put more files 

on disk PC'S 
SoftEst - Manage projects. MS $ 
Source Print PC $ 
Synergy-Create user interfaces MS $ 
Texsys - control source MS $ 89 
Visible Computer: 8088 - Simulates 

demos or any .exe. com, Debugger. 

350 pg. tutorial, unprotected PC $ 69 
Note: All prices subject to change without notice. 

Mention this ad. Some prices are specials. Ask about 


COD and POs. All formats available. 
UPS surface shipping add $3/item. 







Shel Hall 
Artell Corp. 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


HS 


16-BIT 


Listing One (Text begins on page 108.) 


Listing 1. 


1) copy masm.exe masm.sav (to make a backup) 


2) ren masm.exe masm.fix (debug.com can't write EXE files) 


FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
cause you can run all DOS com- 
mands plus COM and EXE programs 
from within HS/FORTH. Not be- 
cause you can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 


3) debug masm.fix : 

3a) D 72B8 L 22 (should see 34 bytes of 00) 

3b) E 72B8 
enter these bytes: 
8B 1E D6 09 C6 06 CO 01 00 E9 75 02 C4 57 06 FE 
06 CO 01 E9 74 02 80 7C FF 1A 74 03 39 9D 02 4E 
EB F4 

3c) U 7535 L 1 (should see “MOV BX, [09D6]" ) 

3d) E 7535 
enter these bytes: E9 80 FD 

3e) U 753F L1 (should see "LES DX, [BX+06]" ) 

3f)..E 753F 
enter these bytes: E9 82 FD 

3g) U 756D L 1 (should see "CMP BYTE PTR [SI-01],1A" ) 
enter these bytes: E9 5E FD 

3h) W (to write changes to masm. fix) 

3i) Q (to exit debug.com) 





4) ren masm. fix masm.exe 


5) Test masm.exe to make sure changes have been made correctly. 
If not, copy masm.sav to masm.exe and try again. 


Nor for the fast 9 digit software float- End Listing One 
ing point or lightning 18 digit 8087 

math pack. Not for the half mega- gts 

byte LINEAR address space Yor | | Listing Two 

quick access arrays. Not for com- 

plete music, sound effects & graph- Licking owe 

ies support. Nor the efficient StI Tf a ee es indewnesyyseeiarcereeeave sei 
functions. Not for unrivaled disk flex- Eire RPM ErP AA TOV enim gece aGae ogee ie «Beka 
ibility — including traditional Forth 029 hpkio Basic I/O functions using handle packing. titi 
screens (sectored or in files) or free oo weitlen by. Patil Mi Adame ory 
format files, all with full screen edi- 333 Route 4 Box 23 2253 
tors. Not even because I/O is as ee arnwee tener -Se* SAEs Alby 
easy, but far more powerful, than ae aie 
even Basic. Just redirect the charac- oSLSSEELSLLELIELERSEELELGER EER ER EERE TERE RR RET RET ETRE RET TTT T Tara airerrers 
ter input and/ or output stream any- 

where — display, keyboard, printer pe eaten 

or com port, file, or even a memory 

buffer. You could even transfer Con- || oo... ss:srerecrsracegeaececacsaaaaeaaaiate se yLsbretigiemeaecyeret artes 
trol of your entire computer to a DEE ne a mel SO Sao EEN a 33 
terminal thousands of miles any a Bat cas fainie /* Data Set Name a ois 
with a simple >COM <COM parr. 237 int attr; /* file attribute byte */ eee 
Even though a few of these reasons tie a 
might be sufficient, the real reason vee hold handle = psp_handle [19] tee 
is that we don’t avoid the objections rai psp handle(19] = FF tii 
to Forth — WE ELIMINATE THEM! SCO Ee eRe Kreme a 
Public domain products may be af eas pee ae ioe 
cheap; but your time isn’t. Don't 33 retval = psp handle[dos_handle] ee 
shortchange yourself. Use the best. ag eee te 
Use it now! $33 psp handle[19] = hold_handle iF 
HS/FORTH, complete system: $395. vet soreturn(retval) - real dos handle = 


with “FORTH: A Text & Reference” 


by Kelly and Spies, Prentice-Hall 
and “The HS/FORTH Supplement” 


hcreate proc 
public hcreate 





by Kelly and Callahan push es 
push bp 
: Mov bp, sp 
"sr Visa Mastercard aan i 
dsn equ [bp + 6] 
attr equ [bp + 8) 


hold handie equ (oo — 2} 


HARVARD 


SOFTWORKS tnt 2th 


PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 
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A. software development. 

B. computer system integration. 
C. computer manufacturing. 

D. computer consulting. 

E. computer research. 

F. none of the above. 


IV. This inquiry is for: 
A. a purchase within | month. 


C. product information only. 


Please circle one letter in each category: 


ill. My company department performs: 


B. a purchase within | to 6 months. 


V. Corporate Purchase Authority: 
A. Final Decision-maker 
B. Approve /Recommend 
C. No Influence 


VI. Personal Computer Users at my Jobsite: 
A. 10,000 or more 
B. 500 to 9,999 
C. 100to 499 
D. 10to 99 
E. less than 10 


VII. On average, | advise others about 
computers: 
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C. once per week. 
D. less than once per week. 


VII. In my job function, I: 
A. design software and/or write code. 
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D. don’t design software or write code. 





Free! 





MOV al, byte ptr es:[(18h + 19] 
xor ah, ah 

mov hold handle, ax 

mov byte ptr es:(18h + 19], Offh 


mov ah, 3ch 
mov dx, dsn 
mov Gx, attr 
int 21h 
Je hcreate error 
mov DX, ax 
mov al, byte ptr es:[bx + 18h] 
xor ah, ah 
mov byte ptr es:(bx + 18h], Offh 
jmp hcreate done 
hcreate error: 
~ Mov ax, Offffh 
hcreate done: 
push ax 
mov ax, hold handle 
mov byte ptr es:({18h + 19], al 
pop ax 


hcreate exit: 
mov sp, bp 


pop bp 
pop es 
ret 


hcreate endp 


COCO eee ee oe eee eee eee e este eee e eee eee Tete eect 
hopen(dsn, mode) 
unsigned char 
int mode; 


/* Data Set Name */ 
/* DOS open mode “/ 


*dsn; 


hold_ handle = psp handle[19}] ; 
psp handle{19}] = FF : 
call dos to open file ; 
if error ; 
retval = -1 ; 
else ; 
retval = psp handle[dos_ handle] ; 
psp_handle[dos handle] = FF ; 


psp_handle[19] = hold handle 


return(retval) - real dos handle 


Se Se Se Se Se Fe Se Me Me Se Me Se Me Me Me Me Me Me Be 


Se Se Se Se Me Se Se Se Se Se Se Se Be Se Se Se Se Se fF 
“ee Se Se Se Se Se Me Se Me Se Me Me Be Me Me Se Me Me 
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hopen proc 
public hopen 


push es 


push bp 
mov bp, sp 
sub sp, 2 
dsn equ [bp + 6] 
mode equ [bp + 8] 
hold handle equ [bp - 2] 
mov ah, 62h 
int 2lh 
mov es, bx 
mov al, byte ptr es:(18h + 19] 
xor ah, ah 
mov hold handle, ax 
mov byte ptr es:(18h + 19], Offh 
mov ax, mode 
mov ah, 3dh 
mov dx, dsn 
int 2ih 
jc hopen_error 
mov bx, ax 
mov al, byte ptr es:[bx + 18h] 
xor ah, ah 


mov byte ptr es: (bx + 18h], Offh 
jmp hopen_done 


hopen_error: 


mov ax, Offffh 
hopen_done: 
push ax 
mov ax, hold_handle 
Mov byte ptr es:[18h + 19], al 
pop ax 
hopen exit: 


(continued on next page) 
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FAST 


\, MICR@SOFT 
Compiler 
List Price $99 Our Price $79 


QuickBASIC 

New Version 2.0 
Performance beyond BASICA. 
® Quickly compiles BASICA Interpreter pro- 

grams into native code. 

® Can compile entirely in memory for even 
faster compilation. New! 
Programs execute up to ten times faster. 
Can call high speed assembly routines. 
Network file sharing with record locking. 
Graphics (incl. EGA), sound and music. 
Numeric arrays, each up to 64K bytes, can 
use up to available memory. New! 
Programs can be distributed without 
source and runtime fees. 


Complete development 


environment. 

® Built-in editor and debugger to write pro- 
grams and locate and fix errors. New! 

© Execution tracing at source level. New! 

¢ Menu-driven interface that supports either 
keyboard or optional mouse. New! 


Structured & modular programs. 

¢ Update and maintain programs effort- 
lessly. 

¢ Multi-line IF/THEN/ELSE statements. 
New! 

¢ Alphanumeric labels — line labels are 
optional — for easy to read programs. 

® Subprograms that use local and global 
variables. 

© Programs use up to available memory by 
compiling and linking individual modules. 

® Includes a library of routines to access 
DOS and BIOS interrupts. New! 


Send one dollar and we'll send you a Microsoft 
QuickBASIC demonstration diskette. 


US 800-336-1166 
CANADA 800-225-1166 
Ohio & Overseas 216-877-3781 


programmer's connection 
136 SUNNYSIDE ST. HARTVILLE, OHIO 44632 


Circle no. 86 on reader service card. 
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16-BIT 


Listing Two (Listing continued, text begins on page 108.) 


Mov sp, Dp 
pop bp 
pop es 


Soe e kee E a eae eee eee eee eee Ree ae a a eRe a TTT RTT aaa es 
re hclose (handle) ots 
as int handle; /* File handle from hopen */ 3737 
hold handle = psp_handle[19) rae 
psp handle[19] = handle 233 
call dos to close handle aaa 


if error 

retval = -1 
else 

retval = 0 


psp_handle[19] = hold_handle 
return (retval) 
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hclose proc 
public hclose 


push es 
push bp 
mov bp, sp 
sub sp, 2 


handle equ [bp + 6] 
hold_ handle equ [bp - 2) 


mov ah, 62h 
int 2ih 


mov es, bx 

mov al, byte ptr es:[18h + 19] 
xor ah, ah 

Mov hold handle, ax 

mov ax, handle 


mov byte ptr es:[18h + 19], al 
mov bx, 19 


MOV ah, 3eh 

int 21h 

jc hclose_error 
xOr ax, ax 


jmp hclose_done 


hclose_ error: 
mov ax, Offffh 


hclose_done: 
push ax 
mov ax, hold handle 
mov byte ptr es:(18h + 19], al 
pop ax 


hclose exit: 
mov sp, bp 
pop Dp 
pop es 
ret 


hclose endp 


SSSESSSLSELEEETRREEEERELTLEEERTRER EERE REE RE TERETE REET RTT TT TEETER Tae a aaa 
eae ss 
eae hget (handle, ioarea, len) or: 
rae int handle; /* File handle from hopen */ 777 
ae? unsigned char *ioarea; /* Input Buffer */ oss 
eae int len; /* Number of bytes to read */ 777 
ee one 
rae hold handle = psp handle([19] oar 
eae 33 
rae call dos to read file 33 
rae if error tre 
eee retval = -] <2 2 
tae else tt: 
a7 retval = number of bytes read s33 
ae 33 
ra3 psp_handle[19] = hold_handle 33 
sae return (retval) ses 
eae sit 
SSELELLISELILEGLEGLREGRSG ELLE RL EER EER EE REE EE EERE ERE E TTT EE RET ET ETE E TTT Ta Tae 
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hget proc 
public hget 
push es 
push bp 
mov bp, sp 
sub sp, 2 
handle equ [bp + 6] 
get_area equ [bp + 8] 
get _len equ [bp + 10) 
hold handle equ [bp - 2] 
mov ah, 62h 
int 21h 
mov es, bx 
mov al, byte ptr es:[(18h + 19] 
xor ah, ah 
Mov hold handle, ax 
mov ax, handle 
mov byte ptr es:[(18h + 19], al 
mov ax, get_area 
mov cx, get_len 
mov bx, 19 
mov ah, 3fh 
int 21h 
je hget_error 
jmp hget_done 
hget_error: 
mov ax, Offffh 
hget_done: 
push ax 
mov ax, hold handle 
mov byte ptr es:[18h + 19], al 
pop ax 
hget_ exit: 
mov sp, bp 
pop bp 
pop es 
ret 
hget endp 


se 


hput (handle, ioarea, len) 


int handle; 
unsigned char *ioarea; 
int len; 


hold handle = psp_handle[19] 
psp_handle[{19} = handle 


call dos to write file 
if error 
retval = -1 
else 
retval = number of bytes written 


psp_handle[19] = hold handle 
return (retval) 


Se Se Se Se Se Se Se Me Se Ss Se Se Se Me Se Se Fe Me =e Se 
Ze Se Se Me Se Se Se Se Se Se Ne Be Se Se Se Se Se Se Se Se 
Se Se Se Se Se Se Se Se Se Se Se Se Me Se Se Me Me Fe Se Se 


=e 
=e 
=e 
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=e 
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=e 
=e 
se 


hput proc 
public hput 
push es 
push bp 
mov bp, sp 
sub sp, 2 
handle equ [bp + 6] 
put_area equ [bp + 8] 
put len equ [bp + 10} 
hold handle equ [bp - 2] 
mov ah, 62h 
int 21h 
mov es, bx 
mov al, byte ptr es:[(18h + 19] 
xor ah, ah 
mov hold handle, ax 
mov ax, handle 
mov byte ptr es:({18h + 19], al 
mov dx, put_area 
mov cx, put_len 
mov bx, 19 
mov ah, 40h 
int 21h 
jc hput error 
jmp hput_done 
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/* File handle from hopen */ 
/* Output buffer “7 
/* Number of bytes to write*/ 


eeseece eesesee sess eseesneseeeeeeseseeseses ° 
| 2 ee i a 2 2 2 2 2 2 


e 78 3a Se Se Se Se Se Se Be Se Se 
e 3e¢ %e 3e Se Se Se Me Se Se Me Se 
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[ey @ MICRGSOFT 
C Compiler 


New Version 4.0 
with CodeView Source Debugger 





& List Price $450 Our Price S299 


The professional C compiler. 

¢ Library routines implement most of UNIX 
System V and proposed ANSI C libraries. 

¢ Implements register variables. 

© Generates very fast and optimized code. 

¢ Five memory models with new huge and 

compact. 

Mixed models using near, far and huge 

pointers. 

Support for huge programs up to one MB. 

Separate module compilation. 

Math coprocessor and emulation support. 

IEEE single- and double-precision reals. 

Network file sharing with record locking. 

Support for pathnames and1/O redirection. 

Support for mixed language programming. 

Source and object compatible with XENIX. 

Support for huge arrays (>64K). 

Start-up source helps create ROMable 

code. 

Microsoft Windows support. 

Includes LINK, LIB, MAKE, EXEPACK, 

EXEMOD. 


Code View source-level debugger. 

© Multi-window display. 

¢ Debug using source code, disassembly or 
both intermingled. 

® Can display values of local and global 
variables and expressions as you debug. 

® Set conditional breakpoints on variables 
or memory, trace and single step. 

¢ Displays CPU registers and flags. 

© Easily debug graphics-oriented programs. 

® Accepts familiar SYMDEB or DEBUG 
commands. 

® On-line help and drop-down menus. 

© Keyboard or optional mouse support. 


Send one dollar and we'll send you a Microsoft 
C/CodeView demonstration diskette. 


800-336-1166 
CANADA 800-225-1166 
Ohio & Overseas 216-877-3781 


programmer's connec Lion 


136 SUNNYSIDE ST. HARTVILLE, OHIO 44632 


Circle no. 98 on reader service card. 
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16-BIT 


Listing Two (Listing continued, text begins on page 108.) 


hput_error: 
mov ax, Offffh 
hput_done: 
push ax 
mov ax, hold_handle 
mov byte ptr es:(18h + 19], al 
pop ax 
hput_ exit: 
mov sp, bp 
pop bp 
pop es 
ret 
hput endp 


se 
se 
=e 
=e 
ze 
=e 
se 
=e 
=e 
ze 
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=e 
°0e 
=e 
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eeceoneeceeeeeeerveseeeseeseseeeeeseseeeeesneeseeeee2? 
sever rvrevvrrrerrewnaereornarwecravwenscaewartaeaeeaee sevrere 


long int hseek(handle, rba, method) 


int handle; /* File handle from hopen */ 
long int rba; /* Relative Byte address */ 
int met hod; /* Seek method */ 


hold handle = psp _handle[19] 
psp handle[19) = handle 


=e Se Se Se Se Ve Ve Be Se Se Ve 
=e Se Se Se Ve Se Se Ve Ve Ve Ve 
=e Se Se Se Be Te Se Se Ve Se Ve 


call dos to seek to rba 
if error 
retval = -l 
else 
retval = seek address 


Se me se *8 Se Se 


psp_handle[19] = hold handle 
return (retval) 


=e 
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hseek proc 
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public hseek 


push es 

push bp 

MOV bp, sp 

sub sp, 2 
handle equ [bp + 6] 


rba_low equ [bp + 8] 
rba_ high equ [bp + 10} 
seek method equ [bp + 12] 
hold handle equ [bp - 2] 


mov 
int 
mov 


mov 
int 
46 

jmp 


hseek_ error: 
mov 
mov 


hseek done: 


push 
mov 


ret 


hseek endp 


ah, 62h 
21h 
es, bx 


al, byte ptr es:[18h + 19] 
ah, ah 

hold handle, ax 

ax, handle 

byte ptr es:[18h + 19], al 
dx, rba_low 

cx, rba high 

ax, seek method 

ah, 42h 

bx, 29 

21h 

hseek_ error 

hseek_done 


ax, Offffh 
ax, ax 


ax 

ax, hold_handle 

byte ptr es:(18h + 19], al 
ax 


sp, bp 
bp 


es 


include epilogue.h 


end 
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End Listing Two 
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Listing Three 


Listing Three 
#include <stdio.h> 
#define MAXF 256 


struct 
struct 


{ int 
{ int 


scs, sss, sds, ses; } sreg; 

ax, bx, cx, dx, si, di, ds, es; } dreg; 
main(argce, argv) 

int argc; 


unsigned char ‘argv; 

{ 
int fid[MAXF]; 
int i: 
int =F 
int oe 
long i; 
int lastfile; 
char dsn[30]; 
char line[80}; 
long int hseek (); 


segread (&sreg) ; 
dreg.ax = 0x6200; 
sysint21(édreg, édreg); 
printf(“\nCreate files"); 
for (i = 0; i < MAXF ; i++) { 
sprintf(dsn, “\\test\\bt%d.dat", i); 
c = hcreate(dsn, 0); 
fid[i] = c; 
printf (“\nCreate dsn = %s, handle = %3d", dsn, c); 
if (c == -1) { 
break; 
} 
} 
lastfile = i; 
printf ("\n"); 
printf ("\nWrite files"); 


for (i = 0; i < lastfile; i++) { 
printf ("\nWriting file number %$02d", i); 


for(j = 0; 3 < 10; j++) { 


sprintf(line, “out file no %03d line no %02d\n\r", i, 4); 


c = hput(fid[i], line, 28); 
} 
} 


printf ("\nClose files"); 


for (i = 0; i < lastfile; i++) { 
c = hclose(fid[i}); 
printf("\nreturn from close %3d = %3d", i, c )# 


} 
printf(“\nOpen files"); 


for (1 = 0; 1 < lastfile; 1++) { 
sprintf(dsn, “\\test\\bt%d.dat", i); 
c = hopen(dsn, 0); 
fid{i] = c 
printf ("\nOpen dsn = %s, handle = %3d", dsn, c); 


} 
printf("\nRead files"); 


for (i = 0; i < lastfile; i++) { 
1 = 28 * (i % 10); 
1 = hseek (fid[i], 1, 0); 
c = hget (fid[{i], line, 28); 
line[26] = 0; 


printf ("\nseek return = %3D, get return = %3d, line = ts", 1, c, line); 


} 
printf (“\nClose files"); 
for (i = 0; i < lastfile; i++) { 


c = hclose(fid[i}); 
printf("\nreturn from close %3d = %3d", i, c); 
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MICROSOFT. 


Macro Assembler 
Version 4.0 


List Price $150 Our Price S99 


World's fastest MS-DOS 
assembler. 


© 3 times faster than prior release. 

® 100% compatible with IBM macro 
assembler. 

© Relaxed typing of statements. 

Supports 8088, 80186, 80286, 8087, and 

80287 opcodes and pseudo opcodes. 

Optional case sensitivity. 

Macros. 

Conditional assembly. 

Linkable with Microsoft BASIC, C, COBOL, 

FORTRAN and Pascal programs. 


SYMDEB symbolic debugger. 


Supports source level debugging of Micro- 
soft C, FORTRAN and Pascal programs. 

© Screen swapping for visual applications. 

© Disassemble, display, trace, single-step 
and Set tracepoints. 

© Display and modify variables by name. 

1/O redirection. 

© Shell escapes for executing DOS 
commands. 


Plus these other useful utilities. 


LINK object code overlay linker. 

LIB library manager. 

CREF cross-reference utility. 

MAKE program maintenance utility. 
EXEPACK file compression utility. 
EXEMOD file header utility. 


Please refer to our main ad for more 
information. 


US 800-336-1166 
CANADA 800-225-1166 
Ohio & Overseas 216-877-3781 


programmer's conneclion 


136 SUNNYSIDE ST. HARTVILLE, OHIO 44632 


Circle no. 103 on reader service card. 
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RIGHT TO ASSEMBLE 


Listing One (Text begins on page 114.) 
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000000 


0000C0 
000010 
000010 
000012 
000014 
000016 
000018 


0O001A 
OOOO1E 
000022 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


3031 3233 3435 


7407 
760F 
E998 
2200 
C283 


O3FC 
0004 
8000 
0002 
0003 
0O0OD 
OOOA 


0000 


10FB 10E4 
SICA FFF4 


4E75 


INFO $Header: worm.a-v 1.2 86/03/24 01:44:36 jans Exp $ 


Kak The Worm Memory Test KKK KK KKK IK EK EKER REE EK EK KKK EKEEKKKKKKEKEEKER 


Author: Jan W. Steinman, 2002 Parkside Ct., West Linn, OR 97068. 


The Worm memory test has three parts. Init sets up the registers for the 
Worm. The Display Manager interacts with the Worm each pass and periodically 
Displays the Worm's progress. The Worm itself Worms itself through memory, 
from high to low, checking memory against a copy of itself. The Droppings 
form a pattern through memory when the test is complete. 


This version runs on the Tektronix 4404 under Uniflex. System dependent code 
is mostly segregated to the Init, Display, Disable and Enable routines. Two 
instructions in the Worm routine are system dependent, for enabling and 
disabling interrupts. 


Register usage: 
DO scratch register. 


D1 scratch register. 

D2 scratch register. 

D3 scratch register. 

D4 

D5 address mask for determining if time to show progress. 
D6 base of memory area under test. 

D7 length of Worm in long words. 

AO scratch register. 

Al scratch register. 

A2 scratch register. 

A3 pointer to Display manager for position independent access. 
A4 pointer to permanent Worm image for comparison. 

AS pointer to crawling Worm image. 

A6 

A7 stack pointer. 


These included files contain system definitions and interrupt (signal) 
numbers for the Uniflex operating system. Don't bother to list these. 


+ + + + HF + + + HF HF HF HH HF HF HF HF HF HF HF FH + + + + FF FH HF HF HF HF F 


OPT lis 
DEFINE (This makes all labels global for debug.) 


* 


* Set D MASK with the bits that are zero at each progress report. 
* 


D MASK EQU $00003FC Report each boundary passed. 

REL SIZ EQU 4 Relocation is four bytes at a time. 
MEM SIZ EQU $2000*REL SIZ Test a 32K chunk. 

DISABLE EQU 2 fe Trap number for Disable routine. 
ENABLE EQU 3 Trap number for Enable routine. 

CR EQU $OD Carriage return. 

LF EQU SOA Line feed. 


* 


* Uniflex will not allow intersection math, so put all the code in the DATA 
* section, and don't use TEXT or BSS at all! 
* 


DATA Assemble into writable data section. 
MemBeg EQU * 


kkexkk hexadecimalize He HII HII TAK IK IKI IAAI KIKI AHIR IK KIA IKKE EK ERE 


* hexadecimalize converts a long word to eight ASCII hexadecimal characters. 
* This routine is machine and OS independent. It uses a simple table look-up 
* to generate the hexadecimal string. 


Entry: dO -- Long word to be converted to hex. 
a0 -- Pointer to buffer where hex characters will go. 


Exit: d2 -—- -1. (Just in case someone cares!) 
dO -- unchanged. 
-~8(a0) -- points to eight ASCII characters. 


Uses: d3 -- nybble mask: constant SOF. 
d2 -- nybble counter. 
dl -- current nybble to convert is LSN. 


+ + + + + + HF HF HF FF F 


* 


CharTab DC.B '0123456789ABCDEF' Where we keep our hex characters. 

hexadecimalize 
move.l #7,d2 Bytes to make - 1. 
move.l #S0F,d3 Nybble mask. 

HexLoop rol.l #4,da0 Shift the next nybble into the LSN, <------ ——+ 
move .1 do, di make a copy for masking, | 
and.1 d3,d1 mask out all but least significant nybble, | 

ws index into char table and store result. | 
move.b CharTab (pc,dl1), (a0)+ | 
dbra d2,HexLoop Repeat until done, and when done, ---~--~-~-— --+ 
rts hit the road, Jack. --> 


kkk Manager He KIKI IKKE KK TKK IH IKK KIKI IKK KIKI KKK KK KKK KEKE KKK KK EK EK 


* Manager checks the Worm's progress, and periodically reports to the Display. 
* This routine is also entered if an error is encountered. 


Entry: dO -—- W_LONGS complement of pass count if error, else -l. 
al -—- test address pass/fail value. 


Exit: via direct jump to Worm at (A5). 


+ + + + OF * 
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hink about it, a full year of technical and 
useful information about C. The C Journal 
provides programming information for any 
| Machine - IBM PC™, UNIX™ -based, Macin- 
tosh™, or CP/M™ - micro, mini or mainframe. 
Look forward to each issue for: 

— NEW in-depth reviews and feature articles— 
C compilers, editors, interpreters, function 
libraries and books. 

— NEW efficiency hints and tips. 

— NEW interviews with C experts. 

— NEW news and rumors from the ANSI stan- 
dards committee and industry. 


! ubscribe today to the only magazine that 
S dedicated specifically to C - The C 
Journal. 

Please send check or money order for$18 
(cover price $28) to: 


= InfoPro Systems 


3108 Route 10, Denville, NJ 07834 
Call TOLL FREE (800) 628-2828 ext. 84 
(for charge card orders only) 
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Uses: d3, ‘d2, dl, ..dQ, at, ai, ad 
Stack: one level, plus needs of Display. 


000024 OD57 6F72 6D20 ErrMsg ODC.B CR, ‘Worm reports memory error at ' 


000042 ErrAddrMsg 

000042 3030 3030 3030 DC.B ‘00000000 on pass ' 

000053 ErrCountMsg 

000053 3030 3030 3030 DC.B *00000000.',CR 
0000 0039 E SIZ EQU *-ErrMsg 


O0000S5D ODS7 6F72 6D20 DoneMsg DC.B CR, ‘Worm tested memory from ' 


000076 DoneBegAddrMsg 

000076 3030 3030 3030 DC.B *00000000 through ' 

000087 DoneEndAddrMsg 

000087 3030 3030 3030 DC.B ‘00000000 successfully.',CR 
0000 0041 D SIZ EQU *-DoneMsg 


O00009E 3030 3030 3030 ProgMsg DC.B *00000000',CR 


(Stay on legal instruction boundary.) 
Was loop exited by error, or countdown? 
Error, go report it. -—---------------------- + 
Countdown, so are we done yet? | 
Yes. Go finish up. ------------------- —+ | 
No, put the new source where we can L | 
look at the bottom bits: on boundary? | | 
| 
| 


0000 0009 P_ SIZ EQU *-ProgMsg 
OOOOA8 00 EVEN 
OOOOA8 4A40 Manager tst.w do 
OOOOAA 6A30 bpl.s GetErrMsg 
OOOOAC BC8D cmp. 1 a5, d6 
OOOOAE 6708 beq.s GetDoneMsg 
OOOOBO 200D move.l a5,d0 
O0O00B2 C085 and.1 dS, d0 
OOO0B4 674A beq.s Report 
OOOOB6 4ED5 jmp (a5) 


Finish up. Get the pointer to start addr, | 
OOOOB8 41Fa FFBC GetDoneMsg lea DoneBegAddrMsg (pc) , a0 


OOOOBC 2009 move.l a1,d0 and the value to plug in, | | 
OOOOBE 6100 FFS50 bsr hexadecimalize which gets converted, likewise, get | | 
0000C2 41FA FFC3 lea DoneEndAddrMsg (pc) , a0 1 | 
0000C6 203C 0000 8000 move.l #MEM SIZ,d0 the end address and its value, || 
OOOOCC 6100 FF42 bsr hexadecimalize also converted to hexAscii. | | 
OOOODO 41FA FF8B lea DoneMsg (pc) ,a0 Get pointer to complete done message, 1 | 
OO000D4 7641 move.l #D_SIZ,d3 length of the done message, | | 
OOO00D6 487A 0050 pea Exit (pc) push a return pointer, | | 
OOOODA 6034 bra.s Display and go display the message. -------------- +| | 
* Make an error report. Get message ptr, ne. 
OOOODC 41FA FF75 GetErrMsg lea ErrCountMsg(pc),aQ <—-------------~---~~~~~-~---~-~---___ | |+ 
OOO0EO 0400 0007 sub.b  #W_LONGS-1,d0 convert worm count to a pass count, | | 
OOOOE4 6100 FF2A bsr hexadecimalize make it hex for Display. <--> | | 
= Get addr of ASCII error addr, | | 
OOOOES8 41FA FF58 lea ErrAddrMsg (pc) , a0 | | 







































Yes, set up for progress report. ---|+ 
No. Keep on Crawlin'... --—> | 






| | 
<----------------------~----~------- +| | 
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Up To Your Ears 
In Alligators? 


If that sounds familiar, you need 
Write-Hand-Man™, the mullti- 
function pop-up desktop 
organizer that works 
neatly with existing soft- 
ware for CP/M™ 2.2 and 
3.0 systems. Write-Hand- 
Man eliminates that 
swamped feeling with 
tools that will get you 
organized. Write-Hand- 
Man comes with a 
4-function, floating-point, 
14 digit Calculator — Notepad 
— Two-week Appointment 
Book, File and Directory viewing — Phonebook 
with dialing — Cut and Paste — Key Redefinition — 
ASC II table. Even add your own applications. 






















































Clear the swamp from your desktop. 
Order Write-Hand-Man today. $49.95 






CA residents add 6.5% tax. Sorry, no 

credit cards or purchase orders. Poor PerSon 

Specify: 8” or which 5” format Software 
CP/M 2.2 or 3.0 format 


30 day guarantee 


™ 










Dept. 203 
3721 Starr King Circle 
Write-Hand-Man — Poor Person Palo Alto, CA 94306 


Software (415) 493-3735 
™ CP/M — Digital Research 
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RIGHT TO ASSEMBLE 


Listing One (Listing continued, text begins on page 114.) 





OOOOEC 7OFC move.l #-4,d0 get bad long addr to display, |! 
OOOOEE D089 add.1l al, do less four to account for postincrement, | | 
The Worm Memory Test Mon Mar 24 02:15:36 1986 page 4 
OOOOFO 6100 FFIE bsr hexadecimalize make it hex for Display. <--> | | 
OOOOF4 41FA FF2E lea ErrMsg(pc),aO Get pointer to whole err msg, | | 
OOOOF8 7639 move.1 #E_SIZ,d3 the size for the write, | 
OOOOFA 487A 002C pea Exit (pc) push a return pointer, || 
OOOOFE 6010 bra.s Display and Display the message. -----------------+ | 
* Progress report. Get message ptr, | | 
000100 41FA FF9C Report lea Progen foc) 20. rn | + 
000104 200D move.1 a5, a0 load the checked address, | 
000106 6100 FFO8 bsr hexadecimalize make it hex for Display. <--> | 
00010A 5188 sub.1 #8, a0 Regain pointer to the message, | 
00010C 7609 move.l #P SIZ,d3 get the size for the write, | 
O0010E 4855 pea (a5) push a return ptr to the new Worn, | 
* and drop through into Display. Vv 


kek Display He KK II TI KKK IKI IAI IIA FRIAR IRI IK IKKE KKK EEK EKER EEK ERE 
* Display is an implementation-dependent scheme for reporting the Worm's 

* progress. Upon entry, AO contains a pointer to a string to Display, and D3 
* contains the length of the string to Display. 


* 
* Entry: a3 -- number of bytes to display. 
. a0 -- address of a string to display. 
Fe 
% Uses: dO -- file descriptor of stdout. 
- al -- scratch register for pointing to SysCall param block. 
* 
* Stack: as needed by system call. 
* 
RREEKERE BEGIN SYSTEM-DEPENDENT CODE EAERRERF 
000110 2F03 Display move.l d3,-(a7) load the byte. cont, SO 
000112 2F08 move.l a0,-(a7) the actual string pointer, 
000114 3F3C OO0D move.w #write,- (a7) and the system call index, 
000118 204F move.l a7,a0 point to the syscall parameter block, 
00011A 7001 move.l #1,d0 load file descriptor for stdout, 
x00011C 0000 0001 SYS indx and write the message. <--> 
000120 DFFC 0000 OO0A add.1l #10,a7 Remove the params from the stack, and 
000126 4E75 rts return somewhere. --> 


* 
* For lack of a better place to put it, the system- dependent exit code is here. 
* 


X000128 0000 0005 Exit sYS term Terminate this program. (System dependent.) 
REKERRE END SYSTEM-DEPENDENT CODE EERKKKER 


kkk Disable, Enable HEH IK I HIT IK IKK IAI KKK KKK KEK KEKE 


* These routines provide the exclusion mechanism for the non-interruptible code 
* in Worm at Crawl. These routines must execute in supervisor state, therefore 
* they are executed via the TRAP exception instruction. Enable requires that 

* Dl be preserved from the preceding Disable. 


* 
* Uses: SR -- interrupt mask is raised and lowered. 
* d2 -- scratch register for restoring original interrupt mask. 
* dl -- scratch register storage place for old interrupt mask. 
* 
keeekeee BEGIN SYSTEM-DEPENDENT CODE © *#****** 
00012C 40F9 0000 OO0A Disable move sr,10 Grab the status register, 
000132 0241 0300 and.w  #$0300,d1 keep only the interrupt bits, 
000136 027C 0300 and #$0300,sr and disable all interrupts 
+00013A 0000 0008 0000 SYS cpint, SIGTRAP2,Disable <--> 
000146 4E77 rtr before entering critical code region. --> 
000148 40C2 Enable move sr,da2 Regain the status register, 
00014A 8441 or.W d1,d2 reset the previous interrupt level, 
00014C 46C2 move d2,sr and enable the proper interrupts 
+00014E 0000 0008 0000 SYS cpint, SIGTRAP3, Enable <--> 
00015A 4E77 yer before exiting critical code region. --> 


aeeRKKKE ) OEND SYSTEM-DEPENDENT CODE _  *#***#%* 


kkkKK ©6Worm HK KIKI KIKI KK KIA IK IAA IK KI IKEA KE EERE KEKE ERE REE 


Worm is a self-modifying, self-relocating procedure which starts at some 
location in high memory and works its way down to its end address, 
periodically reporting its progress. 


The loop at Crawl depends strongly on the 68000 prefetch mechanism. This 
loop will not work on a 68020 machine (which has a 64 entry cache), nor on 
most simulators (which often do not bother to simulate prefetch accurately). 
This loop will also not work with the TRACE bit set, and must be protected 
from all interrupts, including page faults in virtual memory systems. 


When this loop moves the DBNE long word at Crawl+4, it overlays the MOVE.L 
and the CMPM.L at Crawl. The CMPM.L is in the prefetch queue, so it gets 
executed even though its memory image has just been clobbered. The DBNE is 
fetched, and its execution flushes the prefetch queue as is the case with all 
branches. Execution continues with the copy of the DBNE just moved, which 
executes again, branching to Crawl-4, the new loop location. Note that the 


+ Ft + FF FF OF HF FF OH OH OF 
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* loop count gets decremented twice in this scenario, removing the need for the 
* usual predecrement before entering the loop. 



































* 

* 

* Entry: d7 -- length of Worm in long words. 

- d6 -—- base of memory area to test. 

* dS -- address mask for display boundary. 

* a> -- first long word address of Worm at present. 

* a4 -- first long word address of Worm's original image. 

- a3 -- display manager's address. 

* 

. Exit: dO -- W_LONGS complement of pass count if error. 

* a5 -- entry value less relocation, i.e.: next pass entry value. 

. al -- address pass/fail report value. 

* 

* Uses: dO -- decrementing Worm length. 

. a2 -- incrementing COMPARE address. 

¥ al -- incrementing TO address. 

* a0 -- incrementing FROM address. 

* 

: Unused: 4, d3, a7, a6. 

* 
00015¢C 3007 Worm move.w d7,d0 Restore the Worm's length, 
OOO15E 204D move.l1 a5,a0 its starting point, 
000160 244¢c move.1 a4,a2 and its original address. 
000162 43ED FFFC lea -4(a5),al Get the destination for this pass. 

RESAEE AS BEGIN SYSTEM-DEPENDENT C0 DE RERKKEERE 
000166 4E42 trap #DISABLE Don't interrupt this critical passage! <--> 

+ PR EEEEE END SYSTEM-DEPENDENT CODE RERRKERE 
000168 2298 Crawl move.l (a0) +, (al) Move a long word piece of Worm, <------- + 
OO016A B589 cmp.1 (al)+, (a2) + and check it against the original, | 
00016C 56C8 FFFA dbne do, Crawl one long word at a time; ~—<—--——~. U2, 

PESCRCES. BEGUN (SY S27 Se - DEP RAND Fe CODE -=— *kkkkkee 
000170 4E43 trap #ENABLE Allow interrupts -- critical section over. <--> 

RE REARS END SYSTEM-DEPENDENT C:0 BE RERREKES 
000172 598D Sub.l1 #REL_SIZ,aS5 Update the new Worm address, 
000174 4E71 nop keep the whole thing on long boundary, 
000176 4ED3 jmp (a3) report to the Manager. --> 






The following pattern (which is notoriously hard on 16-bit dynamic RAM 
memories) gets left in memory and can be checked later if desired. 
* 








(continued on next page) 










FORTRAN PROGRAMMERS 


Looking for the right PC FORTRAN LANGUAGE SYSTEM? 
If youre serious about your FORTRAN programming then 
you should be using F77L- LAHEY FORTRAN. 


Editor's Choice - PC Magazine 
¢ Full FORTRAN 77 Standard e Fast Compile - Increase your 


DeSmet C 


now with 32-Bit Pointer Option 
Se eho aye as ee ee still $109 


The editors’ choice for fast compilation and execution. The 






































































price/performance winner in all major C benchmarks since (F77L is not a sunset) Seber i 4 
1983. Includes Compiler, Assembler, Binder, Librarian, > Popular Extensions for easy —_® Source on Line Debugger 
Execution Profiler and Full Screen Editor. Supports both disk pee et eee (Advanced features without 
and memory resident Overlays. Contains both 8087 and and mainframe applications recompiling) 
Software floating point support. Full STDIO library. © COMPLEX*« 16, LOGICAL 1 ¢ Arrays and Common Blocks 
and INTEGER« 2 greater than 64K 
° ¢ Recursion - allocates local ¢ Clear and Precise English 
Large Case Option anagheh stn eee een eet oe Le $50 variables on the stack Diagnostics 7 
peg ¢ [EEE - Standard Floating ¢ Compatibility with Popular 
Makes a great C Compiler even better. Adds 32-Bit Pointers to Point Arithmetic 3rd Party Software 
C88 so you can utilize all of your PC. Groups scalar and static © IMPLICIT NONE (i.e. Lattice C) 
data for fast access. Supports the D88 debugger. * Long variable names - e Easy to use manual 
31 characters ¢ Technical Support from LCS 






© NEW FEATURE - NAMELIST 


F77L - THE PROGRAMMER’S FORTRAN 
$477.00 U.S. 


System Requirements: MS-DOS or PC-DOS, 256K, math coprocessor (8087/80287) 


FOR MORE INFORMATION: (702) 831-2500 


Lahey Computer Systems Inc. 

P.O. Box 6091 Incline Village, NV 89450/USA 
International Dealers: 

England: Grey Matter Ltd., Tel: (0364) 53499 
Denmark: Ravenhoim Computing, Tel: (02) 887249 
Australia: |§ Computer Transitions Tel: (03) 537-2786 
Japan: Microsoftware, Inc., Tel: (03) 813-8222 


SERVING THE FORTRAN COMMUNITY SINCE 1967 





Gain most of the benefits of an interpreter while losing none of 
the run-time speed of the C88 compiler. Display C source and 
variable contents during execution. Set breakpoints by function 
name or line number. Examine and set variables by name using 
C expressions. 























order direct from: 










C Ware Corporation 


905 W. Olive, Suite 767, Sunnyvale, CA 94086 U.S.A. 
(408) 720-9696 — Telex: 358185 
We accept VISA, MasterCard & American Express 
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RIGHT TO ASSEMBLE 


Listing One (Listing continued, text begins on page 114.) 


000178 


000178 5555 AAAA 


00017C 
000190 
0001C4 


0001E6 


0001E6 


+0001E6 
+0001F2 
+0001FE 

00020E 
+000210 


00021C 
000222 
000226 
000228 
00022C 
+000230 
000236 


00023A 
00023C 
00023E 
000240 
000242 
000244 
000246 


00024A 
00024C 
000250 


000252 


O Errors detected. 


SEGMENT SIZES 


0000 
0000 


0000 
576F 
2448 
OD4D 
0000 


00 


0000 
0000 
0000 
7001 
0000 


2A3C 
41FA 
2C08 
47FA 
49FA 
2A7C 
3E3C 


204C 
224D 
3007 
5340 
2290 
B388 
56C8 


4A40 
6A00 
4EDS 
0000 


0000 
0000 


0000 


TEXT SEGMENT 
DATA SEGMENT 
BSS SEGMENT 


106 


0020 
0008 


017C 
726D 
6561 
656D 
006A 


0008 
0008 
0039 


000D 


0000 
FF58 


FE7E 
FF2E 


0000 
0008 


FFFA 


FESA 
0252 


0000 
8000 


01E6 


206D 
6465 
6F72 


0000 
0000 
0000 


0000 


O3FC 


7TFEO 


0000 


000000 
008000 
000000 


Droppings 
DC.L SSSSSAAAA Pattern to be left in RAM. 
W_SIZ EQU *—Worm Length of self-relocating code, in bytes 
W_LONGS EQU W_SI2/4 and longs. 
kek TNL HIKE EA KIKI IKK ERK EKA IKK KKK KKK EEK KKK EKER KEKE EEK EKER 


* Init performs system-dependent initialization and sets up registers for use 
* of Worm and Manager. Init then copies the Worm into the top of test memory 
* and starts the Worm crawling. 


* 
- Entry: not applicable. 
*k 
= Exit: aS -- Worm's test image address at top of memory to be tested. 
* a4 -- Worm's permanent image address. 
* a3 -—- Manager routine pointer. 
* d7 -- length of Worm in long words. 
* d6 -- base of memory area to test. 
* dS -- address mask for testing display boundary. 
* 
Ovrly EQU * This area will be overlaid with the worm. 
LogMsg DC.B ‘Worm memory tester, ' 
DC.B 'SHeader: worm.a-v 1.2 86/03/24 01:44:36 jans Exp $' 
DC.B CR, 'Memory checked down to location: ',CR 
L_SIzZ EQU *-LogMsg 
EVEN 
GLOBAL Init 
Init 


* 


* First, perform some system-dependent initialization: set up the TRAPs needed 
* to protect the Worm from interrupts, protect the area to be tested from page 
* faults, and write a welcome message. 

* 


kkekeeee BEGIN SYSTEM-DEPENDENT CODE ****%int 


SYS cpint, SIGTRAP2, Disable Set up the exception handlers for the 
SYS cpint , SIGTRAP3, Enable interrupt exclusion routines. 

SYS memman, 1,MemBeg, MemEnd Protect memory image from page faults. 
move.l #1,d0 Prepare and write a stdout 

SYS write, LogMsg,L SIZ welcome message. 


sedeeeee END SYSTEM-DEPENDENT. CODE  .*#**he"* 


* 


* Next, set up registers that will be used by the Worm and Manager. 
* 


move.l #D MASK,d5 Get the Display address boundary mask. 


lea Ovrly (pc),a0 Load the lowest address to test 

move.1 a0, d6 into a data register for comparison, 
lea Manager (pc),a3 get the Display Manager's address, 

lea Worm(pc) ,a4 the Worm's non-crawling image address, 


move.l #MemEnd-W SIZ,a5 and the high-mem Worm start address. 
move.w #W LONGS,d? Get the Womn's length in longs. 


* 


* Finally, move the Worm to the top of memory to be tested. 
* 


move.l a4,a0 Get a copy of Worm's permanent image pointer, 
move.. a5,al its test image pointer, 
move.w  4d/,d0 and its length in longs. 
sub.w  #1,d0 
MoveWorm move.1 (a0), (al) Move, and compare <——--—"—-"—-"—— + 
cmp. 1 (a0) +, (al)+ a long word of the Worm | 
dbne dO, MoveWorm ats tine + 
tst.w do Exit loop by error, or countdown? 
bpl Manager ' Error, go Report it. --> 
jmp (a5) Countdown. Start Crawling! --> 
C SIZ EQU *—MemBeg (Size of non-relocating code.) 
DS.B MEM SIZ-C_SIZ 
MemEnd EQU * 
ENDDEF 
END Init (Set transfer address to the Init.) 


End Listing 
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Its becoming an epidemic . . . everyone is switching to C! 
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Beet 


: Total 
. Description Quantity PRICE Order 


Split-Screen Text 
Editor 


C Compiler 


C and Text Editor 
(Special) 
ASM Utility 


Texas Residents Add 6.125% 
Sales TAX 


$29.95 $ 
$39.95 $ 


$54.95 $ 
$10.00 $ 


Shipping Charges (See at Right) 
TOTAL OF YOUR ORDER: 


Circle no. 156 on reader service card. 





Please check method of payment: 
J Check] Money OrderL] MasterCard/VISA 


Your Card #: 


Pxpites oo eee oe ee aan 
Shipping Charges: (No charge for ASM 
Utility) 

In the U.S.A.: Add $5.00 per Order. 

In CANADA: Add $10.00 per Order. 
OVERSEAS: Add $10.00 per Text Editor. 

Add $20.00 per C Compiler. Add $30.00 

for combined C Compiler and Text Editor. 
Operating System: (Check one >) 

LICP/M Z80 []MSDOS/PCDOS 





Specify Your Computer Name 


Specify Disk Format 


PIES ta es 
Telephone A/C ( 


Street 


2116 East Arapaho 
Suite 363 
software _ Richardson, Texas, 75081 


Ask about our Volume Discounts! 


Call 1-214-783-6001 D 





COLUMNS 


MS-DOS Books 

J n the May 1986 16-Bit Toolbox col- 
umn, I briefly reviewed some 

books on MS-DOS assembly-language 

programming. Since I wrote that col- 

umn, another interesting book has 

appeared: 


Angermeyer, John, and Jaeger, Kev- 
in. MS-DOS Developer’s Guide. India- 
napolis, Ind.: The Waite Group/How- 
ard K. Sams and Co., 1986. 440 pages 
with index. $24.95. 

Compared to the previous pub- 
lished efforts on this topic, this is a 
remarkable book and is the first book 
on MS-DOS programming that I would 
actually characterize as being direct- 
ed at advanced assembly-language 
programmers (that is, typical DDJ 
readers). Topics covered that have 
been neglected or ignored in nearly 
every other book published to date 
include detailed instructions on use 
of the advanced features of MASM 
(macros and conditional assembly), 
design and coding of memory-resi- 
dent utilities and run-time libraries, 
memory management, installable 
device drivers, local-area networks, 
real-time programming under MS- 
pos, disk-layout and file-recovery in- 
formation, and the functional differ- 
ences beteen MS-DOS versions. 

The text of the book is well supple- 
mented with assembly-language ex- 
amples in the form of subroutines or 
complete working programs. The au- 
thors have included many tidbits of 
information and programming 
pearls (such as the method for remov- 
ing a memory-resident program) that 
are obviously derived from extensive 
personal experience. I predict that 
nearly every reader of this column 
will find something new and useful 





by Ray Duncan 





in this book and that they will consid- 
er it money well invested. 
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The BIOS Done It 


The short description of my prob- 
lems with the PC/AT VDISK program 
in the April 1986 column drew a flur- 
ry of mail from readers. The first, 
and most caustic, reply came from 
George Scotten of Springfield, Ver- 
mont. Mr. Scotten wrote: “Ray Dun- 
can’s column is a classic case of RYFM 
(read your fact-filled manual)! . . . Al- 
though he claims that he and his co- 
workers spent a lot of time poring 
over the IBM tech ref manual, the 
time might have been better spent 
reading it... . Interrupts Of1-Offh are 
listed as reserved interrupts, and 
anyone using a reserved interrupt 
deserves what they get.... It only 
took this amateur 30 seconds to re- 
solve his problem. .. .” 

Well, this letter from Mr. Scotten 
rattled me for a few minutes, I must 
admit. I leaped out of my chair and 
consulted my PC/XT and PC/AT tech- 
nical reference manuals once again. 
No, I wasn’t hallucinating: although 
the manuals clearly state that some in- 
terrupt ranges are ‘Reserved’ (for ex- 
ample, 28h—3fh, 40h—5fh, and 
80h—85h), the interrupts Of1h—Offh 
are definitely tagged ‘‘Not Used” rath- 
er than “Reserved.” (See PC/AT Tech- 
nical Reference Manual, p. 5-6, and PC 
Technical Reference 2.02 Manual, p. 2- 
8.) 

A considerably more helpful letter 
came from Thomas Thurston, of In- 
tel Corp., who wrote: “... Actually, 
the problem is not in VDISK at all but 
in the PC/AT ROM BIOS function that 
VDISK uses to access extended memo- 
ry (BIOS interrupt 15h, function 87h, 
pp. 5-150 to 5-155 of the PC/AT Techni- 
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cal Reference Manual). This BIOS func- 
tion creates 80286 protected mode de- 
scriptor tables and then switches to 
protected mode so that it can access 
extended memory directly. As you 
noted in your column, to get out of 
protected mode, the BIOS sets a spe- 
cial value in the CMOS RAM, outputs a 
signal to cause a RESET, and then 
halts. In the power-up sequence after 
the RESET signal is received (pp. 5-33 
to 5-35), the value from the CMOS RAM 
is checked. If it indicates that the RE- 
SET was caused by a shutdown, con- 
trol is returned to the code that re- 
quested the shutdown. 

“There are some side effects of go- 
ing through the RESET sequence. The 
registers do not have the values they 
had before the shutdown. In particu- 
lar, the stack registers (SS and SP) are 
lost. RESET initializes SS to 0 and 
leaves the value of SP undefined. The 
BIOS code recognizes this, but it han- 
dles it in a way that causes problems. 
After the power-up code recognizes 
that a shutdown has occurred, before 
transfering control back to the point 
that requested the shutdown, it initial- 
izes SS to 0030h and SP to 0100h (p. 5-34 
and p. 5-29). This area of memory (ab- 
solute addresses 300h—400h) overlaps 
the end of the interrupt vector table. 
During system initialization, this isn't 
a problem. However, when the area is 
used as a stack during the RESET se- 
quence to come out of protected 
mode, some of the entries in the inter- 
rupt vector table are trashed. 

“When control is returned to the 
point in the BIOS code that requested 
the shutdown (p. 5-152), one of the 
first things it does is restore the user's 
stack (the values of SS and SP were 
saved previously). Before restoring 
SS and SP, however, the code actual- 
ly does two procedure calls (which 
will cause two return addresses to be 
pushed on the stack). One of the pro- 
cedures calls another procedure, 
which uses the stack to save the value 
of CX. In all, three words (6 bytes) of 
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stack space are used before the user 
stack registers are restored. 

“With the Intel 8086 architecture, 
SP is decremented before pushing 
values onto the stack. Thus the last 6 
bytes of the interrupt vector table are 
used as stack space and destroyed by 
this BIOS function. Each entry in the 
interrupt vector table uses 4 bytes. 
This means that the vectors for inter- 
rupts Ofeh and Offh are always lost (af- 
ter a transition to protected mode 
and back again). 

“It seems to me, however, that the 
problem is even more severe than 
this. When SS and SP are initialized 
by the RESET sequence (p. 5-34), the 
interrupts are turned off before and 
on again afterward. The reason for 
turning the interrupts off is to avoid 
the problem of an interrupt occur- 
ring while the stack is in an unde- 
fined state (after setting SS but before 
setting SP). However, it is not neces- 
sary to turn the interrupts off if SP is 
loaded during the very next instruc- 
tion after loading SS because the 286 
always inhibits interrupts until com- 
pleting the next instruction after 
loading SS. 

“In fact, turning the interrupts off 
and then on again causes problems 
because it leaves the interrupts on lat- 
er, while the subsequent code (pp. 5- 
152 and 5-153) assumes that inter- 
rupts are off. In the first place, more 
than just the last entries in the inter- 
rupt vector table will be trashed if 
any interrupts occur before the us- 
er’s stack is restored. Second, the 
code that restores the user’s stack 
does not turn interrupts off when re- 
storing SS and SP, and it executes an 
additional instruction after loading 
SS before loading SP. An interrupt at 
this point would trash arbitrary loca- 


tailed explanations of the VDISK prob- 
lem giving essentially the same infor- 
mation. Hans Pufal threw in a little 
conundrum for the amusement of 
DDJ readers (Table 1, below), and Bob 
Sharpe also added: ‘‘There is a block 
of interrupts specifically reserved for 
user programs (interrupts 60h—67h). 
The only ‘problem’ with using these 
interrupts is one of conflicting usage 
with other programs (for example, 
the Expanded Memory Manager for 
the Intel Above Board and other Lo- 
tus/Intel/Microsoft EMS implementa- 
tions uses interrupt 67h). This need 
not be a problem for any application 
that can save the old interrupt vector, 
use the interrupt during execution, 
and finally restore the original 
interrupt. 

“It might be noted that the original 
PC/AT BIOS has quite a collection of 
errors (for example, see the clever 
way the zero flag is set only a few 
lines later on p. 5-153 and followed by 
IRET). The newer ‘infamous’ BIOS that 
cripples the system to a 6-MHz clock 
rate includes fixes for nearly all the 


BIOS problems we had located.”’ 


Microsoft Macro 
Assembler 

In my May 1986 column, I noted a 
new problem that appeared in Ver- 
sion 4 of the Microsoft Macro Assem- 
bler such that end-of-file marks (1ah) 
don't seem to be recognized at the 
end of include files, resulting in con- 
fusing error messages if the text file 
was written with certain editors 
(such as WordStar in nondocument 
mode). The technical-support people 
at Microsoft have supplied a patch 
that will correct this problem (see 
Listing One, page 96). 

With regard to another potential 
problem, David Gwillim of Los Ange- 
les wrote: “If you are getting strange 
errors from your MASM, or strange re- 
sults or even crashes from your as- 
sembled and linked programs, there 
is an insidious bug that may be 
responsible. 

“Versions of MASM other than the 
original IBM MASM 1.0 all expect to see 
a CR and an LF at the end of each line 


LLP Tools on DOS 
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include: 


awk — data transformation & report generation language 
prof — give a profile of the execution times of a command 


Over 60 programs that perform tasks on machines like the 
IBM PC, XT, or AT with the ease that one would expect 
while working under UNIX. Designed especially for those 
developing software ina DOS environment, these utilities 
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tions in the user’s stack segment.” awk is now 
: egrep — find a string using full regular expression patterns inthe MKS 
l These might overlap and destroy lo- diff — find the differences between two files Toolkit! 

cations in the user’s code and data seg- cat chmod cmp comm cp cae. tee dd baie 
ments.—Ray] df du echo ed file find head help join 
Hans Pufal, Tom Roberts, and Bob Ic line Is more mv nm Od paste pwd 
Sharpe, among others, also sent de- rm sed sh size sort split strings tail time 
touch tr uniq WC andmore ... 


The programs come with a shell and complete UNIX-style command-line file name 
expansion on 3 DSDD 5.25" floppies, load and run under DOS, and are not copy- 


and al,Ofh protected. Phone support is available during business hours. Full documentation is 
add al,90h included. 
daa Price: $139 from: Mortice Kern Systems Inc., 


43 Bridgeport Rd. E., Waterloo, Ontario N2U 2U4 
For information or ordering call collect: 519-884-2251 


MasterCard & VISA orders accepted. OEM & dealer inquiries invited. 
UNIX is a trademark of Bell Labs. MS-DOS is a trademark of Microsoft Corp. 


STREAMLINE YOUR PROGRAMMING 
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Table 1: Pop quiz from Hans Pufal: 
What does this code do? 
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MULTI-TASKING! 
UNO, DOS. MU LTI-DOS! 
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You can do this too, 
if you have Multi-DOS. 


MultiDOS is the NEW Multi-Tasking 
Software that lets you run multiple pro- 
grams on your PC all at the same time! 
With Multi-DOS you can load all of 
your favorite programs (up to 32, limit- 
ed by the size of individual programs 
and available memory) and switch from 
one program to another at a keystroke! 


Compatible with most DOS soft- 
ware, including LOTUS, DBase, 
Wordstar, and others. Q 


Multi-DOS $19.95 +$2.95 S/H 


for 
Software Professionals 


there’s Multi-DOS Plus. DEVELOP 
YOUR OWN MULTI-TASKING APPLI- 
CATIONS! 


e inter task message communication 

* suspend task for specified interval 

e execute external and internal tasks 

e lock/unlock semaphores 

e change task priority (8 levels) 

® commands for suspend, resume, 
abort, etc. 

e AND MORE! 


ee cane 


Specifications and Requirements: 


e |BM-PC/XT (or clone) with DOS 2.0 
or later operating system. 

® Multi-DOS occupies 42 kb of memory 
(48 kb for Multi-DOS Plus) and 4 to 
16 kb of memory per active task. 








ORDER NOW, call toll-free! 


1-800-367-6707 
VISA AND MASTERCARD ACCEPTED 


send check or money order to: 
Nanosoft,13 Westfield Rd 
[ Natick MA 01760 
For Information or MA orders Call 
(617)651-0091 
MA orders add 5% sales tax. Outside 
U.S.A. add $7.95 S/H. 
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before they will recognize line termi- 
nation. MASM 1.0 will work with 
either. 

‘The nonacceptance of a lone CR at 
the end of a line where there is a com- 
ment field (which is most lines in an 
ASM file) causes the next line simply to 
become part of the comment field of 
the previous line, effectively remov- 
ing it from the assembler’s view! 

“In the case where no LFs are used 
at all, this will be immediately obvi- 
ous, but if there are just a few CR- 
only lines, then you will have many 
strange occurrences—symbol-not- 
defined errors, crashes running a 
program that looks just fine in the 
source text, and so on. 

“Because many text editors don't 
seem to care whether there is an LF 
accompanying each CR, the occasion- 
al omission of an LF can be hard to 
find. One simple way to locate these 
is to do a COPY FILENAME.ASM PRN, 
and the printer will print the lines 
that don’t have an LF separating 
them on top of each other.” 


DOS File Handles 
The discussions of the 20-handle limit 
in the December 1985 and May 1986 
16-Bit Toolbox columns generated a 
great deal of interest and discussion 
among DDJ readers. A particularly 
unique work-around was contribut- 
ed by Paul Adams of Shelbyville, 
Kentucky, who wrote: “The letter 
from Dan Daetwyler quoted in your 
December 1985 column was the first I 
had heard of MS-DOS’ limit of 20 file 
handles per process. This came as an 
unpleasant shock to me because, like 
Dan, I was planning a database appli- 
cation that would certainly require 
more than 20 open files. Although, 
Dan’s letter left the impression that 
this restriction is new with Version 3 
of DOS, I have found that it applies to 
DOS 2.0 as well. 
“There is a way around. The clue 
was provided in the January 1986 PC 
Tech Journal. A Tech Notebook by 
Stan Mitchell describes the mecha- 
nism DOS uses to redirect file handles. 
“A program segment prefix (PSP) 
contains a table of 20 bytes starting at 
offset 18h. When a file (or device) is 
opened, the handle returned by DOS 
is an offset into this table. The byte at 





offset 18h +handle in the PSP will con- 
tain what I call the real handle. The 
real handle represents an entry in an 
internal DOS table. The default size of 
this table allows for eight real han- 
dles. This can be changed with the 
FILES command in COMNFIG.SYS. If FILES 
= 255 is included in CONFIG.SYS, the 
real handle has a range of values 
from 0 to feh. A real handle of ffh al- 
ways means the file is closed. 

“The first three real handles are 
predefined by DOS as: 


0—aux device 
1—console 
2—printer 


“The result of this redirection is to 
allow child processes to inherit the 
open files of the parent process. The 
only use DOS seems able to make of 
this is to redirect standard input and 
output. 

“By the way, as far as I can tell, a 
process is defined by a PSP. The cur- 
rently active PSP can be determined 


by DOS function 62h. The only way I 


know to change the active PSP is to 
create a child process using DOS func- 
tion 4bh. [See also Ross Nelson’s expla- 
nation of MS-DOS process IDs in the 
May 86 column.—Ray}) 

“The way to open more than 20 
files from a single process is to trick 
DOS into reusing one of the table en- 
tries in the PSP. I call this technique 
handle packing. 

“To open or create a file using han- 
dle packing: 


1. Open or create a file with the ap- 
propriate DOS handle function. 

2. The dos_handle is the handle re- 
turned by DOS. The real_handle is the 
byte at offset 18h +dos_handle in the 
PSP. Save the real handle for use 
when performing I/O on the file. 

3. Replace the byte at offset 18h + 
dos_handle with ffh so the dos_han- 


dle can be reused. 


“For all other file functions using 
handle packing: 


1. Save the real_handle found at off- 
set 18h +19 so it can be restored later. 
(18h +19, the last handle in the PSP ta- 


ble, was arbitrarily selected.) 


2. Place the real_handle of the de- 
sired file at offset 18h +19. 
3. Move 19 to the bx register and exe- 
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8 Ways to Increase Productivity 


_ Pascal to C Translation 
_ Easily and at Low Cost with 
The Translator (Pascal to C) 
If you like Pascal’s English-like 
syntax but want C’s portability, 
speed, and control, or if you want 
to make a permanent switch to C at 
a very low cost, Milton Brown's 
Pascal to C translator is for you. 
Take Jensen and Wirth standard 
Pascal and produce K&R standard 
C code. Any non-standard Pascal 
syntax is passed directly to the C 
_ program as in-line tokens. View the 
Pascal source code as the translator 
_ works. No file size limit; produces 
an approximately equal sized C file. 
Includes meaningful, well- 
documented sample applications, 
and a manual that helps you to com- 
_ plete the translation. Supports Lat- 
tice, Desmet, and C86. 
: MSDOS $130 


FAST, Easy-to-Use Graphics, 
Royalty-Free: 
Essential Graphics 


Draw fast dots, lines, circles, arcs, 
rectangles, and box fills. Draw a 
bar or exploded pie chart or a shaded 
line graph with one function call. 
Use the font and clip-art manipulation 
routines with the 10 fonts included 
(up to 8 simultaneously), or choose 
from over 500 other fonts and clip-art 
sets available. 

Essential Graphics provides fast 
animation and graphic windowing 
using GET and PUT, and generates 
compact code. Demonstration pro- 
grams and comprehensive manual 
included. 

Supports IBM Color, EGA, and 
Hercules cards, Epson and Oki print- 
ers. Lattice, Aztec, C86, Desmet, 
MS C, others. No royalties. 


PCDOS $219 


Add Efficient Multitasking to Your C Programs with Multi-C 
Create, manage, and communicate among tasks with little RAM and proces- 
sor overhead. Handle multiple users, printers, communications. or just 
about anything else without complex polling schemes or lockups in your 


programs. 


Multi-C is designed for ease of use in production programming, and it 
cooperates with your operating system, so functions are reliable. 40 + 
functions use 32,000 priority levels, handle interrupts, control flags, and 


messages and control queues. 


Multi-C is portable because it’s written in C; use it for stand-alone systems, 
or make Multi-C the kernel of your own operating system. 

Particularly good for applications in data acquisition, device control, 
_and communications. MS C, Lattice, C86. Partial source. No royalties. 


MSDOS $149 


Even for Small Files: Convenient, Fast Access 
CBTREE 


Why spend time writing file management code when you can use consistent, 
flexible, documented, professional functions? Even multiuser record locking 


and variable-length records are supported. 


Add, delete, and update without needing to reindex. Store keys and record 


locations in B + trees. 


You can access any record or group of records by the value of a user specific 
key. Search your files from any point, forward or backward. 
Full, balanced B-tree support includes use of multiple keys, unlimited number 


and length of keys. 


Use this powerful ISAM, even if you’ve previously done without. 
Learn how to write systems for managing large files by using CBTREE source 
as a guide. Modify it and transfer it to another Operating environment without 


royalties. 








HOURS 
8:30 AM - 8:00 PM EST. 


MSDOS $99 


C DYNAMO! 
WINDOWING: Full C 
Source, No Royalties 
POWER WINDOWS AND 
C FUNCTION LIBRARY 
Power Windows covers all the bases: 
overlays, borders, 1-2-3 style or pop- 

up menus/help windows, zap in- 


‘stantly on/off screen, status lines, 


horizontal/vertical scrolling, color 
control or highlighting, word-wrap, 
files to windows, keyboard to win- 
dows. Powerful, easy to use, inte- 
grated error messages, thorough 
documentation. Supports IBM 
monochrome or color. 

MSDOS. Only $119. 
C Function Library - includes 325 funda- 
mental functions with readable source 
and thorough documentation. 

MSDOS. Only $119. 
No matter what you have, you need these. 
Best value available. Highly 
recommended! 


Flexible Screen 
Development with 
SECURITY CHECKING 
and HELP SCREENS: 
ZVIEW Screen Library 


Use this field-sensitive tool to devel- 
op data entry screens and windows 
and provide run-time flexibility. 
Security level settings restrict inquiry 
or update of fields; multiple screen 
help display is available at screen 
and field level. You can also cus- 
tomize ZVIEW’s operation and make 
any field characteristic change during 
execution. 

ZVIEW gives you full control of 
attributes, colors, boxes, protected 
fields, scrolling, and more. Load 
screens from memory for fast re- 
sponse. Field support includes alpha, 
numeric, or alphanumeric data types, 
case conversion, range checking, 
and field comparison, and ZVIEW 
provides automatic data conversion 
to and from ASCII screen format. 
For Microsoft C, Lattice 3.0, and 
Aztec 3.2e. Supports EGA, color, 
and monochrome displays. 


PCDOS $219 


Call for a catalog, literature, advice and service you can trust 


800-421-8006 


THE PROGRAMMER’S SHOP ™ 
128-D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 7/86 
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“We at Sunspot are thrilled to know that there is a 
store that can cut through all the “bull”, and find 
us the products that most computer stores know 
nothing about. Keep up the good work.” 


Clean, Thorough Debugging 
PERISCOPE I, II or IIx 
Always available, start debugging 
after a crash. Source lines, line num- 
bers and symbol support help save 

hours of frustrating work. 

New version 2.1 enhancements 
include DOSEDIT-like command 
editing, definition of up to 4 DATA 
windows, increased ‘monitor’ break- 
point speed, and much more. Other 
features include: disassembly, cus- 
tomization by YOU, in-line assem- 
bly, full 8087/287, 286, 75 + break- 
points, EGA, and traceback. It also 
has source support for Lattice, MSC, 
C86, and MS Pascal, and symbol 
suppport for Desmet and Aztec C. 
Even debug drivers and resident 
programs. 

Periscope I includes an independent, 
memory-protected board and break- 
out switch; Periscope II has a break- 
out switch and software, Periscope 
IIx is software only. 

PCDOS, I $269 
IT $115 through 8/31/86 


IIx $95 through 8/31/86 


Fastest C 
Development on Earth: 
Instant C version 2.0 


Instant C’s NEW version 2.0 gives 
you immediate (2 secs.) compilation 
and execution of large (5,000 + line) 
programs, and the ability to link in 
external (commercial or your own) 
libraries in an interactive, Lattice 
3.0 or Microsoft 3.0 compatible, 
interpreter-like environment with an 
integrated full screen editor and 
source level debugger. 

You'll get full K&R standard C, 
fast (33 second sieve) execution 
speed, and debugging with source 
code animation, single-stepping, 
backtracing, and unlimited condi- 
tional breakpoints. 

Instant C now supports multiple 
screens and graphic devices, run-time 
checking of pointer and array ref- 
erences, and includes a new manual, 
expanded tutorial and reference sec- 
tion, and complete library source. 


i MSDOS $399 
Ratio Inc. : 
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cute the desired DOS function. 
4. Restore the real_handle that was 
saved in step 1. 


“The functions in HPKIO.ASM [List- 
ing Two, page 96] provide the basic 
handle-packing I/O system for use 
with the small-memory model of Ver- 
sion 2.1 of the Computer Innovations 
C86 compiler. The program HTEST.C 
[Listing Three, page 101] is used to 
demonstrate the functions. To try 
HTEST, create an empty \TEST directo- 
ry. The number of files created by 
HTEST will be three less than the num- 
ber of files specified in CONFIG.SYS. 

“This solution is obviously some- 
thing of a hack because the redirec- 
tion scheme is not documented and 
thus may change in future releases of 
DOS. 


“Considering current develop- 
ments in mass-storage devices, the 
IBM PC family of machines could be 
used for some sizable applications. 
This arbitrary limit of 20 files, howev- 


er, disqualifies these machines (under 
MS-DOS, at least) for serious database 
applications. Iam surprised that there 
have not been more complaints. Is I/O 
redirection really worth cutting the 
file limit from 255 to 20?” 


Resident Programs 
and File I/O 
For those DDJ readers writing the 
next SideKick or Ready, Gary Cramb- 
litt has got a question for you: “How 
can a resident MS-DOS program per- 
form disk file I/O without trashing 
an existing program also doing disk I/ 
O? An on-line notepad program, for 
example, allows the user to press a 
special key at any time, even while 
running some other program. A win- 
dow opens up on the screen, the user 
enters his or her note, and the note is 
recorded in a notepad file on the disk. 
“The problem is that MS-DOS is not 
reentrant. When the user presses a 
special key, the processor may be 
currently executing inside an MS-DOS 
file I/O routine. If the on-line note- 
pad program calls MS-DOS disk I/O 
functions, the original program's 
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a 300 page monster. 





Turn your PC into a typesetter. 

If youre writing a long, serious document on your IBM PC, you 
want it to look professional. You want MicroTpX. Designed espe- 
cially for desktop publishers who require heavy duty typesetting, 


MicroTpX is based on the TX standard, with tens of thousands 
of users worldwide. It easily handles documents from / pe 
smaller than 30 pages to 5000 pages or more. As ; 











No other PC typesetting software gives you as 4g FF7SSes / 


many advanced capabilities as MicroTpX. 
So if you want typesetting software 

that’s as serious as you are about your 

writing, get MicroT¢X. Call toll free 


800-255-2550 to order or for more __. TK fi <2 


information* Order with a 60-day 


money back guarantee. 


MicroTRX 


from Addison-Wesley 


Serious typesetting for serious desktop publishers. 
*Dealers, call our Dealer Hot Line: 800-447-2226 


(In MA, 800-446-3399), ext. 2643. 
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disk I/O will get trashed or the com- 
puter will hang. 

“T’ve come up with several ideas on 
how to solve this problem, but so far, 
none of these solutions is ideal. One 
technique can be used if the target 
computer has a timer hardware in- 
terrupt. The MS-DOs Get Critical Flag 
Address function (interrupt 21h, 
function 52h) can be used to tell when 
the processor is not executing code 
inside MS-DOS. A timer interrupt rou- 
tine could keep checking this flag. 
When DOs is no longer critical (and 
therefore is no longer inside an MS- 
DOs disk I/O routine), then the note- 
pad program can safely request its 
disk I/O. 

“There are three problems with 
this technique. First, it is hardware- 
dependent because you must have 
knowledge of (and capture) the par- 
ticular computer’s hardware timer 
interrupt. Second, the Get Critical 
Flag Address function is available 
only in MS-DOS, Version 2, and later. 
[Note: This function is not document- 
ed for PC-DOS systems, although it 
seems to work.—Ray)] Third, a lot can 
happen between the time the user 
presses the special notepad activating 
key and the time MS-DOS is not in a 
critical section. For some applica- 
tions, this won't be a big problem. 
However, I have in mind a program 
to dump the graphics screen of my 
computer (a Z-100) to a disk file. Too 
much can happen on the screen be- 
tween the time the key to request the 
screen copy to disk is pressed and the 
time MS-DOS becomes noncritical. 

“Another technique for solving the 
reentrancy problem would be to save 
the notes in memory—like a special 
RAM disk. The user must run a special 
program before shutting off his or her 
computer to copy the notes from the 
memory file to floppy disk. This solu- 
tion suffers from two obvious defi- 
ciencies. First, it requires more memo- 
ry. Second, if users forget to run the 
special program or if they lose power, 
their notes are lost forever. 

“A third technique would be for 
the on-line notepad program to do its 
own file handling, reading and writ- 
ing physical disk sectors directly. I 
think the problem with this ap- 
proach is obvious. ” DDI 


(Listings begin on page 96.) 
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Turn your PC into a 
multi-user system. 


Convert your IBM PC-AT 
(or compatible) into a multi- 
user/tasking UNIX work 
station—at absolutely the best 
price anywhere, any time. 
Based on the AT&F-certified 
UNIX System V/286, the 
MICROPORT SYSTEM V/AT 
is designed for use in vir- 
tually any computer environ- 
ment, from office automation 
to software development. 


Over 200 utilities 
come standard. 


Grep, awk, sort, split, cut, paste, vi and 
ed (and many more) now let you search 
and modify files, make use of electronic 
mail, emulate terminals, calculate elec- 
tronically, convert data and publish. 

SYSTEM V/AT is more than a look-alike. 
It was derived from AT&T’s own UNIX 
System V release 2 iAPX286. It thereby 
contains standard System V features the 
competitors don’t support, such as the 
powerful symbolic debugger, sdb, the 
shell-layering job-control facility and the 
F77 Fortran compiler, as well as program- 
ming tools such as ctrace, cflow, and bs. 
Also standard is File System Hardening 
which greatly reduces data loss in a power 
failure. 


Want some more features? 


¢ Console driver providing ANSI terminal 
interface for monochrome, CGA, 
Hercules and EGA cards. 


¢ Multiple Virtual consoles allow up to 
four virtual windows of operation. 


e Record and File Locking 


¢ Supports the 286’s 16 megabyte virtual 
address space and fully utilizes its other 
advance features. 


¢ Supports all standard IBM drive types 
and most non-standard hard-disk 
drives. 


e Requires only one hard-disk partition, 
and allows DOS to reside on the same 
hard disk. 


e Provides utilities to transfer files to-and- 
from DOS file systems. 


UNIX and DWB are trademarks of AT&T 
IBM and IBM PC-AT are trademarks of IBM CORPORATION 
SYSTEM V/AT is a trademark of MICROPORT SYSTEMS, INC. 
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e Dynamic disk buffer allocation provides 
RAM disk performance for systems with 
large memory configuration. 


e Runs on virtually all PC-AT clones. 


e Binary compatible 
with the AT&T 6300 
- Plus UNIX System. 


Super software- 
development 
environment 





We've provided everything: Make, 
yacc, lex, sccs, cflow, ctrace plus every 
Standard System V software-development 
tool. The F77 Fortran compiler. And the 
AT&I Portable C compiler for the 286. Both 
C and Fortran compilers generate 287 in- 
structions directly—for systems not con- 
taining 287 math coprocessors, a kernel- 
resident IEEE-compatible 287 emulator is 
provided. The large-model code produced 
by the compiler is among the densest and 
fastest currently available. 





SYSTEM V/AT 


_] RUNTIME SYSTEM Includes the SYSTEM V/AT operation 
system and over 200 utilities, for two users 
QUANT. $160.00 
_| SOFTWARE DEVELOPMENT SYSTEM The complete 
Software Generation System for 286 development. 
QUANT: $169.00 


_| TEXT PREPARATION SYSTEM Includes nroff. troff. spell 
and other programs. 
QUANT. $169.00 


_] THE COMPLETE SYSTEM Contains all three packages 
indicated above. 


QUANT. $439.00 
“J OPTIONAL three to eight-user upgrade 
QUANT. $99.00 
Subtotal: 


(CA residents add 6.5% tax per copy): 


Shipping and handling charges (In the USA, 
$14.00; in Canada, $18.00: and in Europe, $110... .: 


TOTAL DUE: 





So, how do we do it? 


MICROPORT offers SYSTEM V/AT ata 
fraction of the price of the competitors 
simply because we build on the generic 
System V/286 product from AT&T. This en- 
tire utility package from the certified 
release has been copied directly to 
SYSTEM V/AT—without so much as a 
recompile. Not only does this mean that 
MICROPORT can offer SYSTEM V/AT ata 
remarkable low price, it also guarantees a 
level of quality present in few (if any) other 
UNIX-system implementations. (And, since 
our staff was part of the group that im- 
plemented the standard System V/286 
port for Intel, MICROPORT can offer com- 
prehensive support for the system, as 
well.) 


And a dollar change 


The price is even better than you 
thought. Order right away and we'll return 
one silver dollar just as rapidly, with your 
product shipment. (If you'd like a little more 
time we'll apply that dollar to the cost of a 
brochure—which we'll send right away 
too.) 


NOTE: Educational institutions—Call 
about our nominally-priced site licensing 
and source code 


60 DAY MONEY-BACK GUARANTEE 


To order: 
attractively-packaged and fully-documented order will be 
shipped within two weeks. 


MICROPORT SYSTEMS, INC. 

4200 Scotts Valley Drive 

Scotts Valley, CA 95066 

408/438-UNIX or 800/PC2-UNIX (outside CA) 


Complete the information below. Your 


NAME 





TELEPHONE 





ADDRESS sneer eee ti eet a 


CITY 


STATE ZIP 


COUNTRY 
VISA (1 MASTERCARD © BANK DRAFT © CHECK 
CARD NUMBER EXP DATE 











_] Send a brochure only and keep me on your mailing list, 
please. 
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o, this is not a method for quanti- 

fying the mental retentive pow- 
ers of certain long, cylindrical inver- 
tebrates. It is a test that could help to 
diagnose certain types of computer 
memory errors. The Worm memory 
test (see Listing One, page 102) uses a 
dynamically executing program as 
the actual test data. Unlike previous 
memory test programs of this type, 
this worm has a special twist—it is 
able to overlay itself while it is exe- 
cuting, thanks to the MC68000's pre- 
fetch register. 


Some Fetching Facts 
Never heard of the prefetch register? 
To understand how the memory test 
works, it might help to review the 
way the MC68000 fetches and exe- 
cutes instructions. The MC68000 uses 
instruction pipelining in order to 
speed execution. There is, in effect, a 
16-bit register between the data bus 
and the instruction decoding logic. 
When an instruction is executed, the 
opcode for that instruction is first 
loaded into the prefetch register (of- 
ten while the previously fetched in- 
struction is being executed), then the 
instruction is moved into the instruc- 
tion decoding register, where it is ex- 
ecuted. The net effect is that the pro- 
cessor usually has a handle on the 
next thing it is supposed to do. 
Prefetch works fine most of the 
time, but it does slow things down 
during certain operations. If the in- 
struction being executed causes a 
nonsequential instruction to be exe- 
cuted, execution may be either faster 
or slower. In the case of a conditional 


by Jan W. Steinman 


branch instruction, a branch taken is 
quite fast because the prefetch regis- 
ter already holds the displacement 
that must be added to the program 


Jan W. Steinman, 2002 Parkside Ct., 
West Linn, OR 97068 
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The Worm Memory Test 





counter in order to fetch the next 
nonsequential instruction. A branch 
not taken, however, will be a little 
faster if it is a short branch because 
the next instruction is already in the 
prefetch register and the two clocks 
needed to add a displacement to the 
program counter can be saved. The 
worst case happens when a branch is 
not taken and the branch displace- 
ment is 16 bits. In this case, the pro- 
cessor has useless information in the 
prefetch register and must flush that 
information before it can fetch the 
next instruction. 

Other nonsequential instructions 
cause an immediate flush of the pre- 
fetch register and use an extra four 
clocks simply to restart the pipeline. 
One exception is the decrement-and- 
branch instruction, which like the 
taken branches benefits from having 
the branch displacement handy. 
(The MC68010, with its 32-bit prefetch 
register, actually executes many 16- 
bit instructions out of the prefetch 
register if they precede a decrement- 
and-branch instruction.) 


How the Worm Crawls 

Worm depends on these characteris- 
tics of pipelining in order to overlay 
itself while it is running, but it needs 
some management and control in or- 
der to be useful—a Worm on the 
loose would quickly destroy all mem- 
ory! Besides Worm, a complete mem- 
ory test requires two additional parts: 
an initialization sequence and a rou- 
tine for controlling Worm and re- 
porting its findings. 

The initialization routine, Init, has 
some special characteristics and in- 
cludes most of the system dependen- 
cies. It is executed only once—at the 
beginning—and is therefore throw- 
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away code. This is why it is placed 
last—Worm actually crawls right 
over its initialization code in this im- 
plementation. The registers are set 
up to the specifications of Worm, and 
several important system functions 
are performed. In particular, it is im- 
portant that page faulting does not 
occur in systems that support virtual 
memory, and if special hocus-pocus 
is needed to turn off interrupts, it 
should be done here. 

Manager exercises control over 
Worm and is responsible for commu- 
nicating errors it discovers and dis- 
playing progress messages if desired. 
When Manager is entered upon com- 
pletion of a Worm pass, it must de- 
cide if it has been entered because of 
an error or simply as a point of con- 
trol. If there has been an error, Worm 
is no longer runnable, so Manager 
will have to report the error and ter- 
minate. If no error is detected, Man- 
ager must check the progress of 
Worm to keep it from consuming all 
memory. At this point, Manager can 
decide enough memory has been 
checked to warrant a progress report 
of some kind. 

The real heart of the whole thing is, 
after all, Worm. Worm simply repli- 
cates itself, one long word lower in 
memory, while comparing the new 
copy of itself against the original, 
which never executes. Worm may be 
the heart of the memory test, but the 
three instructions starting at Crawl 
are where the magic happens. This 
loop starts at the beginning of Worm 
and copies the first long word down 
to Worm-—4. It continues with each 
additional long word, until it gets to 
the long word at Crawl +4, which is a 
dbne instruction with its 16-bit dis- 
placement. The preceding move./ and 
cmp.] have already been copied 
down. 

At this point, it becomes a little dif- 
ficult to keep track of what is data 
and what is code. When the move.| is 
in the instruction decode register, 
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ready to be executed, the following 
cmp.lis in the prefetch register, wait- 
ing its turn to be executed. When the 
move.l at Crawl executes, it moves the 
dbne instruction into the location it 
and the following cmp.l are current- 
ly occupying. The processor has no 
way of knowing it has just invalidat- 
ed its prefetch register, so it contin- 
ues—moving the cmp.! instruction 
into the instruction decode register 
and moving the following dbne into 
the prefetch register. The cmp.! exe- 
cutes, comparing the dbne just 
moved against the original while 
moving the branch displacement for 
the dbne into the prefetch register. 

Assuming the compare was suc- 
cessful, the dbne executes, decre- 
menting d0 and branching backward 
4 bytes to where the move.! used to 
be. The prefetch register is flushed 
because of the branch, so the value at 
that location is loaded into the pre- 
fetch register and immediately into 
the instruction decode register. But 
what is loaded? A copy of the dbne, 
complete with the same negative dis- 
placement value. The condition 
codes have not changed, and the 
count register dO should not be any- 
where near 0, so the copy of the dbne 
gets executed identically to its prede- 
cessor, which still resides in the next 
long word. The dbne copy branches 
to the move.l copy, and the loop con- 
tinues moving the code down 4 bytes. 
(See Table 1, above.) 

When the count register dO under- 
flows, the dbne copy drops through, 
interrupts are enabled, Worm’s dy- 
namic image pointer a5 is adjusted to 
point to the new Worm copy, and 
Worm reports back to Manager. Note 
that none of the Worm code is ever 
executed before it has been com- 
pared and verified. 

It is vitally important to disable in- 
terrupts when the move.! overlays it- 
self and the following cmp.l. An in- 
terrupt at this point causes the 
prefetch to be flushed when the in- 
terrupt is serviced. Upon return from 
the interrupt, the displacement part 
of the dbne (hex fffa) will be fetched 
as an instruction. This will cause a 
“line 1111 emulator exception” un- 
less your system has a coprocessor 
with an ID code of 7, but either way 
Worm will be broken and the memo- 
ry test will fail. And of course, it is 
important that the length of Worm 
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remains a multiple of 4 if you decide 
to modify it! 


But What Good Is It? 
I originally developed the MC68000 
Worm test for an embedded proces- 


Before 


Crawl—4 
Crawl—2 


~ (a0)+ (at) 
(at)+,(a2)+ 


Crawl move.| 
Crawl+2 cmp.| 
Crawi+4 dbne 





Table 1: The test in action 
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sor application that was having dy- 
namic-RAM refresh problems. It was 
discovered that conventional RAM 
tests, which move smoothly up 
through consecutive addresses, were 
masking the problem by unintention- 
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MS-DOS a 
Programmer's 
Reference 
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programmers the world over have made Lattice C the standard 
compiler for serious MS-DOS programming. Our compiler fea- 
tures include: ANSI language constructs including, unsigned 
as a modifier, void data type, enum data type, structure assign- 
ments, structure arguments, structure returns, and argument 


type checking. 


The library contains more than 200 new functions, including: 


ANSI/UNIX/XENIX compatibility; extended support for MS-DOS: 
extended support for networking including file sharing, file 
locking, and I/O redirection; and flexible error handling via user 
traps and exits. Plus the library has also been re-engineered 
to produce much smaller executables. 

Try the new Lattice C Compiler. Because C-ing is believing. 
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Latti 


INTERNATIONAL SALES OFFICES: 


P.O. Box 3072 


312/858-7950 


TWX 910-291-2190 


Lattice, Incorporated 


Glen Ellyn, Illinois 60138 


Benelux: Ines Datacom (32) 2-720-51-61 Japan: Lifeboat Inc. (03)293-4711 
England: Roundhill (0672)54675 France: SFL (1)46-66-11-55 


Germany: (49)7841/4500 (49)8946/13290 
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Is LISP 





ght 
for Your Expert System? 


Find Out — FREE 


You can explore LISP 
by examining a complete 
sample problem. Call 
and we will send you 
a free source listing 
of ‘“SELECTWP’’.* 
It prompts users for 
criteria and helps 
them choose which 
micro word processor to buy. 
Look over the TransLISP syntax (COM- 
MON LISP compatible). Your application 
will probably have similar characteristics. 


Power & Flexibility 
Do you get flexibility in PASCAL and C? 
Of course, but examine the listing of 
SELECTWP to see how much more power 
and flexibility you get. The LISP advantages: 
e forward references make program flow 
fit the problem 
® manipulate data structures of varying sizes 
© create your own language to fit the 
problem domain 
¢ avoid mundane, busy work required with 
traditional procedural languages 
¢ powerful function and macro building 
facilities provide better data abstraction 





espn ~tSELECTWP includes 512 lines 
in xf of LISP code and 335 lines 
39 "08 

of comments. 


TransLISP gives You 
the Advantage 

Using TransLISP for your expert system has 
several advantages over other AI tools. And 
you will see SELECTWP illustrate: 

* the ability to control how decisions are 

made 

* the freedom to assign weights and react to 

user choices 

* the complete control you have over how a 

problem is solved, and interaction with the 
user 
Nothing to lose 

Examine LISP carefully by studying a practical 
program free. 

Or buy TransLISP risk free. SELECTWP is just 1 of 
over 20 sample programs in the complete TransLISP 
system. The other sample programs include: an adven- 
ture game, a program to read dBASE SDF files, ‘‘Job 
Counselor’ and more. Use the modular tutorial, the 
complete 300+ function LISP interpreter, and the 
online help, to get started in LISP in only a few hours. 

Develop programs of up to 12000 lines on a 640K 
system or use TransLISP on a floppy only, 256K RAM 
machine. MSDOS. 


Call 800-821-2492 for SELECTWP 
FREE. Or order the complete TransLISP 
system risk free for only $95. 


Symons 


335 Washington St., Norwell, MA 02061 (617) 659-1571 
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UNIX-like Utilities for 
Managing C Source Code 


No C Programmer should be 
without their assistant - C ToolSet 
from Solution Systems. The package 
consists of several utilities designed 
to help make C programming tasks 
easier 

C ToolSet (formerly C Helper) 
includes: 


DIFF - Compares text files on a 
line-by-line basis or use CMP for 
byte-by-byte - indispensable for 
showing changes among versions 
of a program under development. 
So “‘intelligent’’ it stays in synch 
even when you add 100 lines. 






ONLY 
$95 


The C Programmer's Assistant 


TOOLSET & 


__ 395 Solution 
ource Code Include ystems ™ 


GREP - Regular expression searches 
— ideal for finding a procedural call 
or a variable definition amid a large 
number of header and source files. 


FCHART - Traces the flow of 
control between the large modules 
of a program. 


PP (C Beautifier) - Formats C program 
files so they are easier to read 


XREF (CCREF) - Cross references 
variables from a program 


Available For MS-DOS - $95 


335 Washington St. 
Norwell, MA 02062 
617-659-1571 


800-821-2492 
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ally providing software refresh. The 
test is not long enough to cause a com- 
plete cycle of all a dynamic RAM's 
row-address-strobe (RAS) lines and 
was able to help diagnose the prob- 
lem. 

In the form presented, this imple- 
mentation is useful primarily as an 


| illustrative example of position-inde- 


pendent coding, modular design, 
and, of course, a unique use of the 
prefetch register. It could 5e put to 
practical use in several ways. 

The best use of the memory test 
might be to have it running continu- 
ously, as a very-low-priority task. 
Manager would have to take some of 
the responsibility of Init by allocating 
test memory and restarting Worm 
when it has finished testing a buffer. 
The interrupt disabling code may be 
simpler on systems without virtual 
memory—on the Amiga it is a simple 
memory store. 

Virtual-memory systems would 
also need to add code to branch 
around the interrupt disabling code 
on the copy of the first long word 
only, which would allow the memo- 
ry test to generate page faults when- 
ever it first crosses a page boundary. 
To make it practical in such systems, 
Manager would have to access the 
memory-management hardware in 
order to map faulty virtual locations 
to broken chips. 

The Worm routine itself can hold 
much more code if desired. I original- 
ly had much of Manager's decision 
code in Worm, which did speed it up 
but at the expense of simplicity. In a 
message-based system, such as the 
Amiga, Manager could be totally de- 
leted. Worm could contain all the 
task code, merrily crawling through 
any available RAM it could find and 
sending error reports through inter- 
task messages—all with minimal im- 


_ pact on the user. 


DDJ 
(Listing begins on page 102.) 
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BRIEF An BEST 


“BRIEF, The Programmer’s Editor, is s simply the best 1 the best text 
ome me Lon a John Dvorak, INFOWORLD 7/8/85 


The Program 


Editor with 
the BEST 
Features 


Since its introduction, 
BRIEF has been sweep- 
ing programmers off 
their feet. Why? 
Because BRIEF offers the 
features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about * 
every feature you’ve 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
““(BRIEF). . .is quite 
simply the best code 
editor I have seen.’’ 


Solution 


ystems ™ 


NGUAGE 


es in Byte (3/85), “BRIEF is 


| [another customizable 
commands be created, 

key, replacing even basic 

keys or the return key . . 

es are available and may 


rithmetic and logical 
nd =e contr 





Svery Feature You C: Can Imagine 


Compare these features 
with your editor (or any 
other for that matter). 
© FAST 
¢ Full UNDO (N Times) 
¢ Edit Multiple Large Files 
° Compiler-specific 

support, like auto 

indent, syntax check, 
compile within BRIEF, 
and template editing 
e Exit to DOS inside BRIEF 
° Uses all Available Memory 
e Tutorial 
© Repeat Keystroke 
Sequences 
15 Minute Learning Time 
Windows (Tiled and 
Pop-up) 


© Unlimited File Size 
-(even 2 Meg!) 

¢ Reconfigurable Keyboard 

° Context Sensitive Help 

e Search for ‘‘regular 

expressions” 

Mnemonic Key 

Assignments 


Horizontal Scrolling 
Comprehensive Error 
Recovery 


A Complete Compiled 
Programmable and 
Readable Macro Language 
EGA and Large Display 
Support 

e Adjustable line length 
up to 512 


MONEY-BACK GUARANTEE 
Try BRIEF ($195) for 30 days — If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 


SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061. 617-659-1571 
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Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments — NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion — 


BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 


Not COPY PROTECTED < 
Zz 


BRIEF is a trademark of UnderWare 
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As artificial intelligence 
moves more into the real 
world and out of the labo- 
ratory, we are seeing more 
and more tools designed to 
help application develop- 
ers use AI techniques in 
their programs. In particu- 
lar, PROLOG and expert sys- 
tems tools seem to be get- 
ting hot. Where it will lead 
is anybody's guess—we are 
still far from true ‘“com- 
mon sense” AI programs, 
and there are few products 
claiming to use AI that are 
much more than sophisti- 
cated database tools. What 
new developments are on 
the horizon? Will true AI fi- 
nally become more than a 
complex toy? What about 
the poorly understood sis- 
ter fields, pattern recogni- 


tion and natural-language . 


interfaces? 


IntelligenceWare has an- 
nounced a new expert sys- 
tems tool, Experteach-II, a 
comprehensive guide in- 
cluding complete LISP and 
PROLOG interpreters for 
the IBM PC. The product in- 
cludes on-line and written 
tutorials, plus tools and 
source code for expert sys- 
tems based in LISP, PROLOG, 
dBASE Il, or Pascal. It’s 
priced at $475. Reader Ser- 
vice No. 16. 
IntelligenceWare Inc. 

9800 S. Sepulveda Blvd. 

Ste. 730 

Los Angeles, CA 90045 

(213) 417-8896 


PML Systems announces 
BEAGLE (Bionic Evolution- 
ary Algorithm Generating 
Logical Expressions), a data 
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analysis system that uses 
artificial intelligence to 
construct rules and infer- 
ences from a knowledge 
database. BEAGLE takes as 
input a database of exam- 
ples and produces both a 
set of human-readable de- 
cision rules and a program 
(in FORTRAN, Pascal, BASIC, 
or C) that expresses the 
same rules. It’s $398 for the 
IBM PC or $1,198 for the 
VAX. Reader Service No. 17. 
PML Systems 

3139 East Almond Ave. 
Orange, CA 92669 

(714) 771-7744 


A new product line from 
Arity Corp. supports soft- 
ware development in PRO- 
LOG on the IBM PC. The line 
includes five products: the 
PROLOG Compiler and In- 
terpreter for $795, the In- 
terpreter alone for $350, 
the Expert Systems Devel- 
opment Package for $295, 
the SOL Development Pack- 
age for $295, the Arity 
Screen Design Toolkit for 
$49.95, and the Arity File 
Interchange Toolkit for 
$49.95. The Combination 
Pack, which contains all 
five products, costs $1,225. 
Reader Service No. 18. 
Arity Corp. 

358 Baker Ave. 

Concord, MA 01742 

(617) 371-1243 


For the Macintosh 

The WSM Group has re- 
leased Hyper-C 68000 for 
the Macintosh computer. 
Hyper-C is a full K & RC 
compiler with extensions 
to allow a natural interface 
with the Macintosh ROM 
toolbox routines. Mac tool- 
box calls are generated in- 
line, so there’s no need for 
any special interfacing 
code. Pascal functions can 
be coded in-line, and as- 
sembly source code is pro- 
duced as output. Full SANE 
(Standard Apple Numeric 





Environment) support is 


provided. Hyper-C is 
priced at $199.95 and has 
no licensing requirements. 
Reader Service No. 19. 

The WSM Group Inc. 

1161 N. El Dorado PI. 

Ste. 241 

Tucson, AZ 85715 

(602) 298-7910 


Pascal Extender and C Ex- 
tender from Invention 
Software Corp. are com- 
piled libraries designed to 
simplify the task of pro- 
gramming the Macintosh 
interface and reduce de- 
velopment time. They sup- 
port all standard toolbox 
commands plus add high- 
and medium-level routines 
for creating and manipu- 
lating windows, menus, 
controls, scrollbars, dia- 
logs, and alert boxes. The 
Extender handles graphics 
and text scrolling and win- 
dow activation. It fully sup- 
ports text editing, desk ac- 
cessories, and graphics 
printing. Pascal Extender 
retails for $69.95; C Extend- 
er retails for $129.95. Read- 
er Service No. 20. 
Invention Software Corp. 
P.O. Box 3168 

Ann Arbor, MI 48106 
(313) 996-8108 


For Atari 8ST 
The Pro Pascal language 
compiler from Prospero 
Software is available on 
the Atari ST. It includes 
strings, 7- and 16-digit pre- 
cision floating point, sepa- 
rate compilation, and 4- 
byte integers. Pro Pascal 
has full GEM AES and VDI 
bindings. It costs $149. 
Reader Service No. 21. 
Prospero Software Ltd, 

190 Castelnau 

London SW13 9DH 
England 

011 441 741-8531 


Let’s Write is a new word 
processor for the Atari ST 










from Mark Williams Co. It 
features advanced text pro- 
cessing, a spelling checker, 
and communications in 
one package. The editor 
gives the user up to 11 win- 
dows to view and change 
text from multiple files. 
The text formatter is simi- 
lar to Unix’s nroff. Let's 
Write costs $79.95. Reader 
Service No. 22. 

Mark Williams Co. 

1430 W. Wrightwood Ave. 
Chicago, IL 60614 

(312) 472-6659 


Hardware for the PC 
American Computer & 
Peripheral has introduced 
the American Abovefunc- 
tion Card, a multifunction 
memory board for Ameri- 
can IBM PC/XTs and compa- 
tibles with full support of 
Lotus, Intel, and Microsoft 
expanded-memory fea- 
tures. Supporting up to 2 
megabytes of expanded 
memory, the Abovefunc- 
tion Card also provides se- 
rial, parallel, and game 
ports and a real-time 
clock /calendar. It includes 
a utility disk that contains 
Expanded Memory Man- 
ager, RAM disk, print buff- 
er, real-time clock/calen- 
dar program, and example 
CONFIG.SYS and AUTOEXEC 
BAT files. The card has a 
suggested list price of $380 
with no RAM or $820 with 2 
megabytes RAM installed. 
Reader Service No. 23. 
American Computer & 
Peripheral Inc. 
2720 Croddy Way 
Santa Ana, CA 92704 
(714) 545-2004 


DigiBoard has announced 
DigiRam/3MB, a memory- 
expansion board for the 
IBM PC/AT that provides up 
to 3 megabytes of error- 
checked RAM on a single 


board. The board has split 


memory addressing, filling 
up to 640K and continuing 
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Te TechVideo provides an in- 


depth overview of the installation of 
computer components. We use it to’ 
train all our technicians and- 


assemblers.’’ 





John Atma, Chief Technician : 
for Tech Personal Computers 


PC TechVideo is an innovative set of 
two 2-hour instructional video tapes 
which form a complete guide to the 
IBM® and compatible personal com- 


puter systems. Designed for 
everyone, from the complete novice 
to the software expert. PC TechVideo 
provides the viewer invaluable first 
hand instruction in the installation and 
maintenance for IBM® and compati- 
ble systems. 


Part I of PC TechVideo is a complete 
and comprehensive presentation of 
prominent features of the PC family 
including: 

Motherboard architecture 





“After viewing : PC ‘TechVideo, / 
now understand the basics of how 
rks and was even 
able to replace the 1.2M drive on 






my computer 





Memory Configuration and Addressing 
Monitor Technology 

Floppy and Fixed Disk Technology 
Bus Architecture 

Serial and Parallel Ports 


Part II of PC TechVideo shows the 
details involved in actually installing, 
configuring, and replacing: 


Motherboards 

Power Supplies 

Floppy and Fixed Disks 
Drive Controllers 

Popular Expansion Boards 


PC TechVideo provides instruction not 
found in books or magazines. It is an 
essential tool for anyone interested in 
understanding their PC. You can't afford 
not to have PC TechVideo. 


Dealers only circle no. 245 on reader service card. 
Users only circle no. 279 on reader service card. 


INTRODUCTORY 


$89.95 


A NEW DIMENSION 
IN COMPUTER EDUCATION 


“PC TechVideo is great. With the 





help of PC TechVideo, I was able 
to install a IOMB hard disk on my 
XT without taking it to.an ge 
sive service center.’’ _ 


Gita Beant, Economics major 
_ at UC Irvine 







PC 
STAR PRODUCTIONS 


1040 EAST CHAPMAN AVE. 
ORANGE, CALIFORNIA 92666 


OUTSIDE CALIFORNIA IN CONTINENTAL 
U.S. - PUERTO RICO, HAWAII EX- 
CLUDING ALASKA: 


1-800-438-8877 


CALIFORNIA RESIDENTS CALL: 


(714) 771-3560 


SPECIAL 
OFFER 

















ORDER NOW | 
NAME _ 
ADDRESS 
CITY. Sie — Z IP. _ 
PHONE # _ 





PLEASE RUSH — - 
PC TECHVIDEO IN 
Co VHS C BETA FORMAT 
O VISA —- CX. MASTERCARD fi G0. 
[1 CHECK/MONEY ORDER ENCLOSED 
ADD $3.50 SHIPPING. 
CALIFORNIA RESIDENTS ADD 6% SALES 





__ COPIES OF 
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at 1 megabyte and up. It is 
user-upgradable and avail- 
able in any desired memo- 
ry configuration. Reader 
Service No. 24. 

DigiBoard Inc. 

6751 Oxford St. 

St. Louis Park, MN 55426 
(612) 922-8055 


Everex Systems has intro- 
duced an EGA video card 
that is compatible with the 
IBM Enhanced Graphics 
Adapter, includes a paral- 
lel printer port and 256K 
display memory on-board, 
and is supplied with the 
company’s proprietary EG- 
MODE software. The En- 
hancer board provides 
640 X 350-resolution graph- 
ics in 16 colors from a pal- 
ette of 64 colors. It has a 
suggested retail price of 
$425. Reader Service No. 25. 
_ Everex Systems Inc. 

48431 Milmont Dr. 

| Fremont, CA 94539 

(415) 498-1111 


Pacific Data Products is 
offering the V68K line of in- 
telligent graphics boards. 
These high-resolution 
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graphics cards are full-size, 
IBM PC add-on cards that 
feature palette sizes of up to 
16 million colors, a Motor- 
ola MC68010 video proces- 
sor, and a capacity of up to 2 
megabytes of video memo- 
ry. Palettes can be reloaded 
every scan line with no 
screen performance degra- 
dation. The boards are com- 
patible with the IBM PC, PC/ 
XT, PC/AT, and RT/PC. The 
MC68010 video processor 
can perform vector to ras- 
ter conversion or other 
tasks. Reader Service No. 26. 
Pacific Data Products 

8545 Arjons Dr., Ste. 1 

San Diego, CA 92126 

(619) 549-0136 


Univation has announced 
anew multifunction accel- 
erator card called the 
Dream Board for the IBM 
PC. It combines up to 2 me- 
gabytes RAM with a 
200—400 percent increase 
in speed, serial and/or par- 
allel ports, a clock/calen- 
dar, an optional 8087 math 
chip, and several utilities to 
speed disk I/O. The card re- 
tails for $595—$795 with 
512K RAM, depending on 
options selected. Reader 
Service No. 27. 





Univation 

1231 California Cir. 
Milpitas, CA 95025 
(408) 263-1200 


Earth Computers’ 287- 
Power-10 is a 10-MHz math 
coprocessor board for the 
IBM PC/AT that plugs into 
the existing 80286 socket. 
The product line also in- 
cludes 5- and 8-MHz ver- 
sions of the board. Prices 
range from $249 for the 5- 
MHz version to $695 for the 
10-MHz version. Reader 
Service No. 28. 

Earth Computers 

P.O. Box 8067 

Fountain Valley, CA 92728 
(714) 964-5784 


Networking 

ITT has introduced the Xtra 
XL, a high-performance su- 
permicrocomputer run- 
ning both DOS and Xenix. 
The system, based on the 
Intel 80286 processor, is de- 
signed to maximize the 
computing power avail- 
able to users operating in 
local-area network and 
shared-processor environ- 
ments and maintains exist- 
ing industry standards. 
Xtra XL includes 8-MHz, 
zero-wait-state memory; 





dynamic disk I/O caching; 
an average hard-disk ac- 
cess time of 28 millisec- 
onds; and an _ optional 
80287 math coprocessor. In 
addition, an 8-MHz 80186- 
based communications co- 
processor offers dramatic 
throughput speed in mul- 
tiuser configurations. Mod- 
els I and II are intended for 
use as local-area-network 
servers operating under 
ITT DOS 3.1. Model I, priced 
at $5,299, includes 640K 
RAM, a 1.2-megabyte flop- 
py disk, and a 40-megabyte 
hard disk. Model II, priced 
at $7,299, includes 640K 
RAM, a 1.2-megabyte flop- 
py disk, and a 72-megabyte 
hard disk. Reader Service 
No. 29. 

ITT Information Systems 
2350 Oume Dr. 

San Jose, CA 95131 

(408) 945-8950 


A local-area-network con- 
figuration for the AT&T 
6300 series of microcom- 
puters has been an- 
nounced by The Destek 
Group. The new configu- 
ration uses industry-stan- 
dard CSMA/CD media-ac- 
cess protocols with a 
network bus speed of 2 





Pascal e Fortran e C 


Major Graphics Boards 
No Royalties 


C ESSENTIALS 


the 200 most frequently used functions 


$250 





Fastest Library Available 
Powerful and Easy to Use 


ESSENTIAL SOFTWARE, INC. 
P.O. Box 1003 Maplewood, NJ 07040 914/762-6605 


No Royalties 


C UTILITY LIBRARY 


350+ C Functions, Source Included 
Pop-up Windows and Menus 
Fastest Screen Output Available 
Strings, Files, Keyboard, Mice 


$185 





$49 


Circle no. 138 on reader service card. 
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Improve Program Qualit 
Enhance Program Productivity 


Design your programs around... 


ASE, the Aspen Systems Subroutine Editor you can call 
from your programs. With ASE you can easily: 

* Design you own screen layouts for Program Input 

* Color and/or highlight input fields 

* Define your own key functions 

* Convert and edit a wide variety of fields 

* Update in several windows simultaneously 
ASE includes 2 major subroutines, many minor subroutines 
and install and demonstration programs. Data & screen 
layouts described in a single map. 


Price $99 
Demo Disk $ 5 


Available MSDOS1,2,3 


ASP, the Aspen Systems Subroutine Package provides 
functions difficult or unavailable in some higher level 
languages, performs those available with greater 
speed /ease or smaller memory requirements. 
The ASP Package includes: 

* 100+ subroutines 

* A 300 page manual packed with examples 

* Test, Demonstration and customization source 


Price $ 1 30 Available MSDOS1,2,3, CP/M 


All subroutines are callable from assemblers and Microsoft 
Compilers, easily altered for other compilers, can be used 
in EXE or COM programs. 


Prices are PPD (continental USA). 


Colorado Residents add 3%. P.O Box} 163 


Grand Junction, CO 81502 
(303) 245-3262 
VISA/MasterCard accepted 


CP “Mand MS-DOS are trademarks of 
5/57, / ] 1 Digital Research and Microsoft, respectively. 


Circle no. 277 on reader service card. 


PC/VI 


Full Screen Editor for MS-DOS (PC-DOS ) 


Looking for an Ultra-Powerful Full-Screen editor for 
your MS-DOS or PC-DOS system? Are you looking for an 
editor FULLY COMPATIBLE with the UNIX* VI editor, 
Are you looking for an editor which not only runs on 
IBM-PC’s and compatibles, but ANY MS-DOS system? Are 
you looking for an editor which provides power and flexi- 
bility for both programming and text editing? If you are, 
then look no further because PC/VI IS HERE! 


The following is only a hint of the power behind PC/VI: 
English-like syntax is command mode, mnemonic control 
sequences in visual mode; full undo capability: deletions, 
changes and cursor positioning on character, word, line, 
sentence, paragraph or global basis; editing of files larger 
than available memory; powerful pattern matching capa- 
bility for searches and substitutions; location marking; 
joining multiple lines; auto-indentation; word abbreviations 
and MUCH, MUCH MORE! 


The PC/VI editor is available for IBM-PC’s and generic 
MS-DOS based systems for only $149. For more infor- 
mation call or write: 


The UNIX community has been using the VI editor for 
years. Now you can run an implementation of the same 
editor under MS-DOS. Don’t miss out on the power of 
PC/VI! 


*UNIX is a trademark of AT&T Bell Laboratories. 


Circle no. 268 on reader service card. 
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A REAL $QOY5 
Clocksin & eS 
Mellish Prolog for BOTH 
major microcomputing 
operating systems — 

with full cross-compatibility. 





Complete with the predicates 
necessary for POWER AI programming: 
op() name() functor () clause() =..(“Univ’) 
...And no constraining data typing. 

@ Floating point ® Step-by-step tutorial 

@ Math functions ® Integrated editor 


PROLOGE} 


Extensible overlay library, 
8087 support, large memory 
model (up to 640K) 


PROLOGZ 


Complete Macintosh en- 
vironment with extensive 
pull-down menus and 
dialogue boxes. 


No Risk Offer: Examine the PROLOGA or 
PROLOG/m documentation at our risk for 30 
days. If not completely satisfied, return with 
disk still sealed for refund. 


APPLICATIONS — 

Complete with SOURCE COD 
NFL X-pert $49 
A true interactive expert system written by a 
professional knowledge engineer. A valuable 
learning tool for any Prolog programmer inter- 
ested in using Prolog to develop expert systems. 


TOOLBOX $2995 


More than 50 subroutines that speed and com- 
press list handling, searches, sorts, and reversal 
algorithms. An inside look at the tricks of the 
professional Prolog programmer. 


TOYBOX $2995 








Written by an academician to help his students GEREN 
understand Prolog, this collection of puzzles ? : 
and mind-teasers will illustrate how the Prolog 5580 LA JOLLA BLVD. 
programmer creates programs that find the SUITE 126 D 

best solution to the problem. Turn your com- ae Ca 


puter into a super reasoning machine! (619) 483-8513 


System Requirements: 


Minimum 256K RAM SAVE 10% when you 


Minimum 512K 


(320K recommended) Macintosh buy either PROLOG /i 
PC DOS/MS-DOS Macintosh-plus and or PROLOG/™m and all 
ANSI Standard Support HFS Compatible 3 applications. 





PHONE ORDERS: 1-800-621-0852 EXT 468 


PROLOG/i $99.95 
PROLOG/m 99.95 









LJ) PAYMENT ENCLOSED §$ 













CA residents add 6% sales tax Check: 
() CHARGE MY: CL) MasterCard O) Visa MS-DOSO 
oom 
Vand No. Eee oe eer TOYBOX 
POPS os SR rn ae Pie a ee er 
Mr./Mrs./Ms. SHIPPING: 
(please print full name) $ 5.00 ao 
7.50 Canada 
” aha ears gly; SMES Carribean, 
= City/State/Zip Hawaii Air 





20.00 Overseas Air 
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Programming the 


65816 Microprocessor 
Including 6502 and 65C02 


David Eyes 


Circle Reader Inquiry Number 219 


*** DROGRAM WITH POWER *** 
PC/POWER '™ 





Application Development 
and Management System 


Runs on all 100% PC compatibles! 


Supports applications in a variety of languages 

- Including C, PASCAL, BASIC and Assembler 

- Even different languages in same application 
Screen painter - language and program independent screens 
Allows programs to pop-up PhRGi ieleckeon windows 
Builds indexes of applications and programs for easy use 
Supplies EXEC function to pass control between programs 

- One language can pass control to another 

- One language can even pass data to another 

- Inter-language considerations handled by PC/POWER 
Run-time supports control of multiple applications with: 

- Run-time start-up screen (customizable) 

- Pop-up application menu 
integrates existing programs into an application 
Useful development applications included as samples 


WITH RUNTIME MANAGER - NO ROYALTIES! 


$95.00 inc. Shipping and Handling 
ORDERS & INQUIRIES (800) 628-2828 ext. 712 


Beacon Street Software, Inc. 
P.O. Box 216 —— 
Beacon Hill 


Boston, MA 02133 ORDER NOW! 





Circle no. 267 on reader service card. 
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megabits/second. It fea- 
tures increased buffer 
memory and circuitry. 
Prices vary according to 
configuration. Reader Ser- 
vice No. 30. 

The Destek Group 

830 E. Evelyn Ave. 
Sunnyvale, CA 94086 

(408) 737-7211 


Network-OS is a local-area- 
network operating system 
from CBIS designed to al- 
low users of IBM PCs, PC/ 
XTs, PC/ATs, and compati- 
bles to create microcom- 
puter-based LANs. It is fully 
NetBIOS/DOS 3.1 compatible 
and can support all major 
LAN topologies including 
token ring. Network-OS 
also supports Novell file 
and record locking and can 
run virtually any third- 
party DOS 3.1 application. 
The retail list price of Net- 
work-OS is $995 per 16 us- 
ers. Reader Service No. 31. 
CBIS Inc. 

2323 Cheshire Bridge Rd. 
Atlanta, GA 30324 

(404) 634-3079 


A simultaneous voice/data 
multiplexer for use on 
four-wire voice grade lines 
is available from Coherent 
Communications Sys- 
tems Corp. The SVD-2400 
overlays a full-duplex, 
2,400-bps data channel to 
an existing leased line, al- 
lowing it to support both 
voice and data traffic. 
Reader Service No. 32. 
Coherent Communications 
Systems Corp. 
60 Commerce Dr. 
Hauppauge, NY 11788 
(516) 231-1550 


A high-speed, 2,400-bps, 
stand-alone modem de- 
signed for personal com- 
puters and terminals is 
available from Prentice 
Corp. The P-224 is a full-du- 
plex modem that meets 





CCITT V.22 bus recommen- 
dations and Bell 212A and 
103 standards and supports 
the Hayes AT command 
set. It features auto-answer 
and auto-dial operation 
and can be used with 
touch-tone or pulse-dial 
phones. Standard features 
also include automatic bit 
rate and parity selection 
and auto-speed recognition 
on answer. Reader Service 
No. 33. 

Prentice Corp. 

266 Caspian Dr. 

Sunnyvale, CA 94088-3544 
(408) 734-9810 


InterContinental Micro 
Systems has released Tur- 
boDOS/PC, a package that 
runs on an IBM PC, a com- 
patible, or any 8086-line mi- 
crocomputer system that 
uses MS-DOS or PC-DOS, Ver- 
sions 1.x, 2.x, or 3.0. Turbo- 
DOS/PC allows the PC to be- 
come a TurboDOS network 
client and to access the disk 
drives and printers belong- 
ing to the TurboDOs file and 
print servers in the net- 
work. The single-copy list 
price for TurboDOS/PC is 
$100. Reader Service No. 34. 
InterContinental Micro 
Systems 
4015 Leaverton Ct. 
Anaheim, CA 92807 
(714) 630-0964 


Woolf Software Systems 
has announced Move-It, 
Version 4, a communica- 
tions package for micro- 
computer users. The new 
version has automatic file 
compression, keyboard 
macros, scripting files, 
XMODEM protocol support, 
infilter and outfilter com- 
mands, and the ability to 
send and receive files auto- 
matically. Move-It, Version 
4, retails for $150. Reader 
Service No. 35. 

Woolf Software Systems 
6754 Eton Ave. 

Canoga Park, CA 91303 
(818) 703-8112 
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DDJ Announces a new service: Programmers’ Opportunities 


Dr. Dobb’s Journal of Software Tools has 
a 10 year history of serving professional 
programmers with the most useful, tech- 
nical information of any publication for 
the computer industry. Now, in our new 
Programmers’ Opportunities section, we 
are offering our readers information to 
help them stay on top of the quickly 





A serial communications 
board that allows users to 


interconnect up to six IBM 
PCs, PC/XTs, PC/ATs, and 
compatibles using the Easy- 
LAN local-area network is 
available from Server 
Technology. The Com 
Port Board-6 is based on the 
RS-232 interface standard 
and works in conjunction 
with the DOS-supported 
COM1 and COM2 ports. By 
incorporating a Server Com 
Port Board-6 along with the 
DOS-supported COM1 and 
COM2, users can intercon- 
nect a total of eight PCs us- 
ing EasyLAN. If desired, up 
to six PCs can be intercon- 
nected to the Com Port 
Board-6, with the COM1 and 
COMz2 reserved for other se- 
rial devices. Three boards 
can be accommodated per 
PC, allowing up to 18 PCs to 
be interconected in an Ea- 
SyLAN network. An Easy- 
LAN starter kit is priced at 
$179.95. Reader Service No. 
36. 

Server Technology Inc. 


come first serve 





~ 








Position Title: 
Location: 
Company: 
Address: 
City/State/Zip: 


1095 E. Duane, Ste. 107 
Sunnyvale, CA 94086 
(408) 738-8377 


Languages 

Clarion from Barrington 
Systems is a structured 
programming language 
designed for commercial 
applications. Clarion runs 
on IBM PCs or compatibles, 
requires a hard-disk drive 
and a minimum of 320K. 
The utility programs are 
integrated; a single key- 
stroke can terminate one 
utility, then load and exe- 
cute the next. Screen and 
report layouts are designed 
interactively. The entire 
package sells for $295. 
Reader Service No. 37. 
Barrington Systems Inc. 
150 E. Sample Rd. 
Pompano Beach, FL 33064 
(305) 785-4555 


A new set of Forth exam- 
ple programs, the Forth 
Mode! Library (volumes 
1—3), is now available 
from the Forth Interest 
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changing technical employment market. 

We invite the top hardware, software, 
electronic, and instrument companies to 
list their computer-related career oppor- 
tunities in Dr. Dobb’s Journal. A limited 
number of companies will be given the 
chance to list jobs each month on a first 


d basis. 


Field Systems Engr. 
NY, DC, LA, and SF 
American Int’1Comm. 
4760 Walnut St. 

Boulder, CO 80301 





Th a 


Group. The library in- 
cludes application pro- 
grams compatible with 
Forth-83 systems available 
from the most popular 
Forth vendors. The vol- 
umes are A Forth List Han- 
dler by Martin J. Tracy, A 
Forth Spreadsheet by Craig 
A. Lindley, and Automatic 
Structure Charts by Kim R. 
Harris. Each volume is 
available for $40. 

Reader Service No. 38. 
Forth Interest Group 

P.O. Box 8231 

San Jose, CA 95155 

(408) 277-0668 


Smalltalk-AT from Soft- 
smarts includes the Xerox 
Smalltalk-80 source code, 
the Xerox image, and Softs- 
marts’ ST-80 virtual ma- 
chine. With Smalltalk-AT, 
users Can run any applica- 
tion developed on a larger 
dedicated Smalltalk ma- 
chine. It requres an IBM PC/ 
AT with 640K base memo- 
ry, at least 512K expansion 
memory, a Mouse Systems’ 


For more information on how your 
company can hire a pro, write or call 
Gary George, 893 Monroe Dr., Atlanta, 
GA 30308; (404) 897-1923. 

Our first response is shown here as an 
example of what your listing will look 
like: 












three-button mouse, and 
the IBM Enhanced Graph- 
ics Adapter. The total pack- 
age price is $995. Reader 
Service No. 39. 

Softsmarts Inc. 

4 Skyline Dr. 

Woodside, CA 94062 

(415) 327-8100 


Software Express has re- 
leased Version 1.6 of Ap- 
gen, a fourth-generation 
language in the Unix mar- 
ketplace. The new version 
features a set of training tu- 
torials. It is compatible 
with all previous versions 
and sells for $6,000. Reader 
Service No. 40. 

Software Express 

2925 Briarpark Dr., 

7th Floor 

Houston, TX 77042 

(713) 974-2298 


Star Value Software has 
announced four software 
development tools for Mo- 
dula-2 programmers: Tex- 
tio, a display and printer I/ 
O library; Graphix, an in- 
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terface to the MetaWindow system 
from MetaGraphics; and Make and 
XRef, utilities for managing large-size 
development projects. These tools 
are designed to work in conjunction 
with the Logitech Modula-2/86 devel- 
opment system on IBM PCs or compa- 
tibles. All four products are sold sepa- 
rately and include complete 
documentation. Textio and Graphix 


are $79 each; Make and XRef are $59 
each. Reader Service No. 40. 

Star Value Software 

12218 Scribe Dr. 

Austin, TX 78759 

(512) 837-5498 


Wordcraft’s C: A Programming 
Workshop teaches the C program- 
ming language interactively. The 
workshop includes an integrated edi- 
tor and standard compiler. The test 
module reports whether a program 





Do you know where your bugs are 7 


This C programmer is finding his bugs the hard way ...one at a time. 
That's why it’s taking so long. But there’s an easier way. Use 


PC-Lint 2.00 


PC-Lint analyzes 


efore they catch 


our C pore (one or many modules) and uncovers 
litches, bugs, quirks, and inconsistencies. 


It will catch subtle errors 


you. By examining multiple modules, PC-Lint enjoys a 


perspective your compiler does not have. 


- NEW: ANSI C extensions (enum, 
peu yeee void, defined, pragma), 
icrosoft keywords, and many 
additional checks. 


- Full K&R C 


- Use PC-Lint to find: 
inconsistent declarations 
argument/parameter mismatches 
uninitialized variables 
unaccessed variables 
unreferenced variables 
suspicious macros 
indentation irregularities 
function inconsistencies 
unusual expressions 
... MUCH MUCH MORE 


- User-modifiable library-description 
files for most major compilers. 


- All warning and informational mes- 
sages may be turned off individually. 


- Indirect files automate testing. 


ee" Amiga - Lint 


Special Introductory Price 
$98.00 
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- Use it to check existing programs, 
novice programs, programs about to 
be exported or imported, as a pre- 
liminary to compilation, or prior to 
scaling up to a larger memory model. 


- All one pass with an integrated 
pre-processor so it’s very fast. 


- Has numerous options and infor- 
mational messages. 


- PRICE: $139.00 MC, VISA, COD 
(Includes shipping and handlin 
within US) PA residents add 6 
tax. Outside USA add $15.00. 
Educational and quantity discounts 
available. 


- Runs under MS-DOS 2.0 and up, 
with a minimum of 128Kb of memory. It 
will use all the memory available. 


- Trademarks: PC-Lint(Gimpel 
Software), MS-DOS(Microsoft) 


sales 


CIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(215) 584-4261 


exercise gives correct results. Users 
can also develop C functions with no 
disk delay. The Workshop runs on 
IBM PCs and compatibles with 19K. It 
costs $39.95 plus shipping and han- 
dling. Reader Service No. 41. 
Wordcraft 

3827 Penniman Ave. 

Oakland, CA 94619 

(415) 534-2212 


Version 1.5 of Mystic Pascal from 
Mystic Canyon Software features 
screen output, a complete on-line 
help library, and fast execution 
speed. It has a full-screen editor, 
multitasking operating system, ISO 
Pascal compiler, and interactive de- 
bugger mode. Users’ programs can 
occupy up to 640K of storage for code 
and data, and users can run up to 100 
program sections concurrently. 
Reader Service No. 42. 

Mystic Canyon Software 

P.O. Box 1010 

Pecos, NM 87552 

(505) 757-6344 


Graham Software Corp. has intro- 
duced Version 1.3 of Alice: The Per- 
sonal Pascal. This version is compati- 
ble with industry-standard Pascal 
compilers and supports Borland In- 
ternational’s Turbo Pascal. Alice: The 
Personal Pascal consists of four, inte- 
grated, computer language products: 
an IBM PC-compatible Pascal inter- 
preter, a language intelligent editor, 
on-line help facilities, and a full-func- 
tion debugging system. Version 1.3 
has a suggested retail price of $95 
(U.S.) or $129 (Canada). Reader Service 
No. 43. 

Graham Software Corp. 

4 Kingwood PI. 

Kingwood, TX 77339 

(713) 359-1024 


QuickSilver Software has released 
memory-resident reference guides 
for popular compilers. These refer- 
ence guides provide clear documenta- 
tion on the procedural and syntactical 
elements of each language. The pack- 
ages require 128K RAM, one disk drive, 
and PC-DOS 2.0 or later. Each guide 
costs $16.95. Reader Service No. 44. 
QuickSilver Software 
P.O. Box 880887 
San Diego, CA 92108 
(619) 543-9896 
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Now there's a 


computer magazine 


that talks business. 


And only business. 


Each month in BUSINESS 
SOFTWARE you'll read case 
studies of computer applica- 
tions on everything from sales 
analysis to inventory control. 
Our monthly tutorials are in- 
valuable in teaching programs 
that allow you to maximize the 
capabilities of your computer. 
You'll find honest, in-depth 
software evaluations by emi- 
nent experts . . . a guide to soft- 
ware decisions . . . even a steady 
flow of specific methods for im- 
proving your personal 
investment. 


Every bit of advice comes from 
a staff of experts and outside 
consultants. Tried and proven. 
And every new software pro- 
gram is tested again and again 
before you’re advised to buy 
it—or forget it. 


BUSINESS SOFTWARE ... the 
no-nonsense magazine that 
shows you how to get the most 
for your business from your 
computer. 


ER EREEeE SHEE HeEEEESEH 
lo subscribe, send filled out coupon to: 


J Business Software. 
PO. Box 27975, 
B san Diego, CA 92128 


B Name 
O Address 
‘| City 











BE i aa hire iis 


i Please start my | year subscription (12 issues) for $19.97. A 
savings of 40% off the newsstand price. 


[| $19.97 Payment enclosed [] Bill me later 
B Charge my [1] WSA M/C (Am. &x 
Bead No. 

u Expiration date 


Signature 





Please allow 6-9 weeks for delivery of first issue 3060 
Bama mEeHeHeHeHeHeHeees 








ge 3 eX 
Order our FULL C COMPILER i’ si E 


For $5995 and we’ll give \ aanee 


a 
you a free CED Program Editor weg 


Sys 


The Ecosoft Eco-C88 compiler for the 8088 and MSDOS is going to set a new standard for price and 
performance. Consider the evidence: 


(1) Computer Language, Feb., 1985, pp. 73-102. Reprinted by permission. 
Eco-C88 Rel. 3.0 on IBM PC with 2 floppy disks, 256K. Benchmarks from Feb., 1985, Computer Language. 
Eco-C88 includes: 
All operators and data types (except bit fields) 
Prototyping, structure passing and assignment, enum and void language enhancements. 
Tiered error messages (gives you selectable levels of “lint” semantic checking) 
memfiles (TM) for using memory outside the 128K limit as a file 
Expanded library with over 200 functions (many of which are System V compatible) plus color and 
transcendentals 
ASM or OBJ output; uses the MSDOS linker 
8087 support with 8087 sensed at runtime 
cc and “mini-make” for easy compiles (with source code) 
expanded user’s manual 


If ordered with the compiler, the C library source code (excluding transcendentals) is $25.00 and the 
ISAM file handler (as published in the C Programmer’s Library, Que Corp.) in OBJ format is an 
additional $15.00. Please add $4.00 for shipping and handling. To order, call or write: 


a 
Ecosoft, Inc. (317) 255-6476 © 8:30-4:30 
6413 N. College Avenue 1-800-952-0472 
Ecosor T#inc. Indianapolis, IN 46220 (orders only) 








Circle no. 89 on reader service card. 


Brand New From Peter Norton 


A PROGRAMMER’S EDITOR 


that’s lightning fast with the hot 
features programmers need 


i This is the program- 
a mer’s editor that I wished 
- I'd had when I wrote my 

Norton Utilities. You can 
Direct from the program your way to 
man who gave you glory with The Norton 
The Norton Utilities, i Editor. 


Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 











Peter Norton Computing, Inc., 2210 Wilshire Boulevard 
Santa Monica, CA 90403, 213-453-236 1. Visa, 
Mastercard and phone orders welcome. 


The Norton Editor™ is a trademark of Peter Norton Computing, Inc. © 1986 Peter Norton Computing 
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Instant-C: 
The Fastest 
Interpreter for C 















































Runs your programs 50 
to 500 times faster than 
any other C language 
interpreter. 






AY C interpreter can save you compile 
and link time when developing your 
programs. But only Instant-C saves 
your time by running your program at 
compiled-code speed. 


Fastest Development. A program 
that runs in one second when compiled 
with an optimizing compiler runs in 
two or three seconds with Instant-C. 
Other interpreters will run the same 
program in two minutes. Or even ten 
minutes. Don’t trade slow compiling 
and linking for slow testing and debug- 
ging. Only Instant-C will let you edit, 
test, and debug at the fastest possible 
speeds. 


Fastest Testing. Instant-C immedi- 
ately executes any C expression, state- 
ment, or function call, and display the 
results. Learn C, or test your programs 
faster than ever before. 


Fastest Debugging. Instant-C gives 
you the best source-level debugger for 
C. Single-step by source statement, or 
set any number of conditional break- 
points throughout your program. Errors 
always show the source statements 
involved. Once you find the problem, 
test the correction in seconds. 


Fastest Programming. Instant-C 
can directly generate executable files, 
supports full K & R standard C, comes 
with complete library source, and works 
under PC-DOS, MS-DOS, or CP/M-86. 
Instant-C gives you working, well- 
tested programs faster than any other 
programming tool. Satisfaction guar- 
anteed, or your money back in first 

31 days. Instant-C is $495. 


Rational 


Systems, Inc. 
P.O. Box 480 
Natick, MA 01760 
(617) 653-6194 
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Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System—regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 


Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


| want to learn more about: 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


CL) the C compiler for MVS software developers 
L) the C compiler for CMS software developers 
(J the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 


Please complete or attach your business card. 
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City 





SURREY oh es ee at ee ee ain, 
Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 


27511-8000. Telephone (919) 467-8000, x 7000 
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SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. Lattice is the registered trademark of Lattice, Inc. PLINK86 and PLIB86 are trademarks of Phoenix Software Associates Ltd. 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute Inc. Printed in the USA. 
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When youre hot 
youre hot. 





HOT C really is. 

It’s fast. It's powerful. It 
writes tighter, faster, more effi- 
cient code. 

And it’s cheap. So now just 
$99 (suggested retail price) gets 
you cutting edge performance 
without the ragged edge 
problems. 

HOT C is an optimizing 
single-pass compiler. It includes 
an assembler, linker, debugger, 
librarian and library source 
code. It supports large- and 








So try HOT C today. Now 
you can have the steak and 
the sizzle. 


small-memory models and all 
operators and types except bit 
fields, with outstanding error 
and type checking. And in For details, just drop a note 
performance, it meets or beats to Word Tech Systems, Inc., 
(sometimes dramatically) every P.O. Box 1747 Orinda, CA 94563. 
other compiler we’ve come up Or call our HOT line at 
against. (415) 254-0900. 

HOT C is a great power trip 
for novices, too. A comprehen- 
sive tutorial, an impressive text 
editor and totally revised docu- 
mentation will have you speaking 
C like a native in no time flat. 


by WORDTECH 


HOT C™ WordTech Systems, Inc. Other products trademarked by others. 


© WordTech Systems, Inc. 1986. 
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Step-by-step tutorial, demo programs with source code included! 


Borland’s new Turbo Prolog is the 
powerful, completely natural 
introduction to Artificial Intelligence 


Prolog is probably one of the most 
powerful computer programming 
languages ever conceived, which 
is why we've made it our second 
language—and “turbocharged” it 


to create Turbo Prolog.” 
Our new Turbo Prolog, the natural 
language of Artificial Intelligence, 


brings supercomputer power to your 
IBM® PC and introduces you step-by- 

step to the fascinating new world of 

Artificial Intelligence. And does all 







this for an astounding $99.95. 


ed Turbo Prolog is to 
> Prolog what Turbo 
Pascal® is to Pascal! 

Our Turbo Pascal astonished 
everyone who thought of Pascal 
as “just another language.” We 
changed all that—and now Turbo 
Pascal is the de facto worldwide 
standard, with hundreds of 
Hue OCs of enthusiasts 
5 oe « and users in 
t 4 universities, 





and hobbyists. 

You can expect at least the 
same impact from Turbo Prolog, 
because while Turbo Prolog is the 
most revolutionary and natural 
programming language, it is also 
a complete development environ- 
ment—just like Turbo Pascal. 





GG Turbo Prolog offers 
generally the fastest and most 
approachable implementation 


of Prolog. 


Darryl Rubi 
At Expert OF 





INTERNAT 


J Even if you've never 
“> programmed before, 
@D our free tutorial will 
get you started right away 

You'll get started right away 
because we have included a 
complete step-by-step tutorial as 
part of the 200-page Turbo Prolog 
Reference Manual. Our tutorial 
will take you by the hand and 
teach you everything you're likely 
to need to know about Turbo 
Prolog and artificial intelligence. 

For example: once you've 
completed the tutorial, you'll be 
able to design your own expert 
systems utilizing Turbo Prolog’s 
powerful problem-solving 
capabilities. 

Think of Turbo Prolog as & 
high-speed electronic detective. 
First you feed it information and 
teach it rules. Then Turbo Prolog 
“thinks” the problem through 
and comes up with all the 
reasonable answers—almost 
instantly. 

If you think that this is 
amazing, you just need to 
remember that Turbo Prolog is a 
5th-generation language—and 
the kind of language that 21st 
century computers will use 
routinely. In fact, you can 
compare Turbo Prolog to 


4585 SCOTTS VALLEY DRIVE 


SCOTTS VALLEY CA 95066 
ONAL 


* (poli 


Borland products include Turbo Prolog; Turbo Pascal; Turbo Tutor, Turbo Editor Toolbox; Turbo Database Toolbox; Turbo Graphix Toolbox; Turbo GameWorks; 
Turbo Lightning: Lightning Word Wizard; Reflex The Analyst; Reflex Workshop; SideKick; SideKick, The Macintosh Office Manager, Traveling SideKick; and 
SuperKey—all of which are trademarks or registered trademarks of Borland International, Inc. or Borland/Analytica, Inc 


Copyright 1986 Borland International Bl-1045E 


IBM, XT, AT, and PCjr are registered trademarks of International Business Machines Corp 
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Turbo Pascal the way you 
could compare Turbo Pascal to 
machine language. 


De You get the complete 
Cts) Turbo Prolog 


SS programming system 
for only $99.95 

You get a complete Turbo 
Prolog development system 
including: 
= The lightning-fast Turbo Prolog 
incremental compiler and the 
interactive Turbo Prolog editor. 
= The 200-page reference 
manual which includes the step- 
by-step Turbo Prolog tutorial. 
= The free GeoBase™ natural 
query language database 
including commented source 
code on disk—ready to compile. 
GeoBase is a complete database 
designed and developed around 
US. geography. It includes cities, 
mountains, rivers, and highways 
and comes complete with natur: 
query language. Use GeoBase 
immediately “as is,” or modify it 
to fit your own interests. 

So don’t delay—don’t waste a 
second—get Turbo Prolog now. 
$99.95 is an amazingly small 
price to pay to become an 
immediate authority—an instant: 
expert on artificial intelligence! 
The lst century is only one 
phone call away. 


LOSE ti WM OLMIEE 


js SSE 


7 | want 
Y "mc the best 


Turbo Prolog 1.0 
Technical Specifications 
Programming System Features 

cae Compiler: Incremental compiler gen- 
erating native in-line code and linkable 

| object modules. The linking format includes 
a linker and is compatible with the PC-DOS 
linker. Large memory model support. 
Compiles over 2500 lines per minute on 
a standard IBM PC. 

"7 Interactive Editor: The system 
includes a powerful interactive full-screen 
text editor. If the compiler detects an error, 
the editor automatically positions the 
cursor appropriately in the source code. At 
run-time, Turbo Prolog programs can call 
the editor, and view the running program’s 
source code. 


cae Type System: A flexible object-oriented 
type system is supported. 
cae Windowing Support: The system 
supports both graphic and text windows. 
cae Input/Output: Full 1/0 facilities, 
including formatted 1/0, streams, and 

' pandom access files. 
7) Numeric Ranges: Integers: -32767 
to 32767; Reals: 1E-307 to 1E+308 
7 Debugging: Complete built-in trace 
debugging capabilities allowing single 
aE of pee 





Turbo Prolog at only: 


$99,.% 


To order by phone, 
or for a dealer nearest you, 


Call (800) 255-8008 
in CA call (800) 742-1133. 
Send me ___ Turbo Prolog at —_— 


Outside USA add $10 per copy 
CA and MA res. add applicable sales tax $ 





Amount enclosed: $ 





This price includes shipping to all US cities 


Payment: VISA MC Bank Draft Check 
Credit card expiration date: __/___ 
Card # | | L {iti | 4 


+You must have an IBM or true compatible running =SU11 


DOS 2.0 or later 
My computer's name and model is: 


The disk size | use is; 0 3%" 0 54" 


NOT COPY PROTECTED 
*60-DAY MONEY-BACK GUARANTEE 


Name 





Shipping Address. 





City 
State) Zp 


Telephone 


CODs and purchase orders WILL NOT be accepted by 
Borland. Outside USA make payment by bank draft payable 
in US dollars drawn on a US bank 


“YES, if within 60 days of purchase this product does not 
perform in accordance with our claims, please Call ou 
customer service department and we will gladly arrange 

a refund 

tMinimum system requirements: 
IBM PC, XT, AT, PCjr, 

and true compatibles, 

384K RAM 


— | . 




















